Joo 
aoa 
Jju4 
au4 
Joo 
aod4 
au4 
oau4 
Jju4 
saou4 
au4 
au 
aou4 
Jjouu4 
ays 


ee) 
ee eee 
ee ee 


uu wu 
rere S) wud 
uu uot udu 
uu wus usu 
wu wud uu 
usu wu usu 
sins usu 


WwWWWUWUU UU 
AAD ks a tL 


—— ~“— 
Oe Ot Ot Oe ag Oe ae Oy oe Os ae we ee 
Ps a ad ad Og Od ad Od Oe nd nd Og Og 


—— ~—— 
ee —o 
ka ka 

tak 

tk hk Ae ka 

te ka Ae. ba 

te he ba 

tk kk he 

ka ba Bee Le 

te te ta aL 


eS ee OS SS a we Se De Oe 
Ag tk tk kk kkk kk kt 


wu wud) 
uu usu 
— uus usu errs) 
wus wud wud 
iveRee) ud wud 
wus wud Lv eTVN) 
udu uk vere) 
wu usu udu 


aoaoaoaaaoaaa 
acoaooaonaoaansa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
a2n0G0 Aaa AaKbaAaaaaaa 
aSoaonoaanaaoaaaaaa 
a4 ww Mnwnnm 
a4 nn Munn 

ae nn nw nn 

a4 nn nw nw 

= | nn vn nn 

a4 mW wn nn 

a4 nw “wn ww 

ao mown nn wn 

a ed od et od od A A od od) I I I Mnnwn nw 

ao I I I I I I I I I I NMNWMM nn 
EEFFEEEEEEEEEE 

“ee pas 

td Od Od Ong Sand Oe) Od Co Od Sand Dong Ome Omg, 

—e — 

oe he 
EEEEEEEELeEeTe 

3252252553522 33 

3 44 

zz a4 

2 oJju4 

z3 =e 

Z2zZ2zz 222 z ao Jot I I I I I I I I 

32255S5E5EEEE=E= ee ee ae ee ee 


**F [LE**1D**NMLDEF INE 


NML DEFINE permanent parameter module 18-5¢ ~Se07 1386 99: 1g: 4} AX-11 Bliss-32 V 


SOoooooooooooooooooooo: 


So 


OOooooo 


ooo 
ooo 


Soooooo 
Cooooooo 
uw 


ooo 
FERRER 
od > 
Dae ea Bed ead ed ad ad ad ee a i a ca cae a ae a a ea a ee ee ce ce a ee eee ec a ed ee ee ee ee ee ec ed ed ee ec 
e 


NOME AN 0 OD NO VWVE WN 0 OD NAUE WN OO ODNOAOUSWN S(O OODNOUES WN OOONOUS WR 


. 
° 
~ 
o 
7 
. 
> 
° 
. 
° 
. 
° 
© 
° 
os 
7 
. 
. 
° 
. 
eo 
. 
o 
° 
¢ 
. 
° 
. 
° 
. 
. 
. 
° 
. 
6 
. 
° 
° 
e 
° 
oO 
- 
a 
> 
e 
© 
° 
~ 
© 
7 
° 
e 
. 
o 
. 
7 
7 
° 
. 
. 
& 
~ 
- 
. 
6 
. 
oe 
. 
° 
° 
. 
e 
2 
. 
oa 
. 
oe 
. 
. 
- 
° 
. 
e 
. 
° 
~ 
° 
. 
7 
e 
. 
. 
. 
e 
= 
° 
7 
a 
. 
e 
. 
« 
~ 
* 
- 
. 
. 
° 


PUPP BB BB BBE EE EAA AANA AIA PIPPIN NNPNDD 2 OO OO 


MAA AMNAI 


Ss 


-Sep- 


ZTITLE "NML DEFINE permanent parameter module' 
MODULE NML ber ie ( 
ANGUAGE (BL1SS$32) 
ADDRESSING _MODE TAONE TERNAL =GENERAL). 
ADD + de NG ODE SEXTERNAL=GENERAL) , 
= 


BEGIN 


APE SELSSIOI ICIS TET TTT TTT PTT r terri reir c eit it iii ii ri iit iiiiiiit 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALI RIGHTS RESERVED. 


® 
® 
® 
® 
. & 
it re SOFTWARE IS A ght oe UNDER A LICENSE AND MAY BE USED AND gh A * 
ie Y IN ACCORDANCE WITH THE oe OF SUCH LICENSE AND WITH THE * 
Hl INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. * 
. fe 
i phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Hed CORPORATION. ® 

e 
tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

* 

we 

* 


See eee RARE RARER RARER AAEAEAAA HAAR AAA AAA ARATE AeAAAAeee 
' 


'e+ 
FACILITY: DECnet-VAX Network Management Listener 

: ABSTRACT: 

This module contains routines to handle the NCP DEFINE command. 
: ENVIRONMENT: VAX/VMS Operating System 

! AUTHOR: Distributed Systems Software Engineering 

CREATION DATE: 30-DEC-1979 
' 
' 
t 
' 
' 
! 
' 
' 
' 
' 
' 


i MODIFIED BY: 
v03-010 sige He Kathy Perko 20-April-1984 
DEF NODE nnn NAME ann suet ies a Supt tease name, fix 

the error message so it indicates whether the duplicate is 
the exec or a remote. 

v03-009 MKP0012 y Perko 9-April-1984 
If talking to a Phsse II] NCP, return those nodes in the 
executor's a zero area number. This will make 


with a 
them reli table’ os on the Phase III system. Node numbers 


NML .SRCJNMLDEF IN NE: 


SDEF INE NML DEFINE permanent eter modul 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Pp | 
“a permanant parenter cote SEE-ISY MBNA) "Ulan m0 


| 
outside Fhe executor’s area are returned as is. This means 


Fix NMC SSAVEVENTS. so that a status of NMLS$_STS_PMS 
is returned if there are no events. 


v02-001 MKP0001 Kathy Perko 23-July-1981 
Add circuit entity and multidrop Lines 


at ee eH 8 a 
DONAULSWN— 


3 8 1! 

: 9 8 1! they will be berg » Not easily understood numbers, but at 

3 oY +4 ! } least they will be unique. 

: 6 062 1: v03-008 MKP0011 Perko 17-Feb-1984 

3 068 1 i Fix bug in DEFINE KNOWN'NODES = NMLSERTRECOWNER is being 

3 $e bee : } fe a descriptor incorrectly. 

> 66 066 1 vO3~007 mxPO019 Kathy Perko  9=Jvan=1984 | 
3 24 Bpee : Nod yt “Access Module entity. 

: 69 0069 1 i V03-006 MKP0009 Kathy Perko 4=Aug-1983 

; 0 a Sy Converting node database to use multiple ISAM keys. Make 

; 4! te } changes necessary in this module. 

BS. bors 1 i v03-005 MKP0008 Kathy Perko 25-April-1983 

: ie Boe : Add configurator module permanent database operations. 

: 76 0076 1! v03-004 MKP0007 Kathy Perko 14-Sept-1982 

ae 0077 1! If a logging sink node is the executor node, save it in 

> 7 0078 1! the permanent data base with an address of zero. This allows 
: 79 0079 1! the database to be transported to another node, and siill log 
s 0080 1! the events to the local node. 

; «81 0081 1! Fix DEFINE KNOWN so that it uses a record owner to determine 
: 8 0082 1! what records to modify. This allows for X25 and X29 which 

3 oz Boe7 : combine several databases in a single ale database file. 
>: 85 0085 1: V03-003 MKP0006 Kathy Perko 9-Sept 982 

; & 0086 1! Fix entity returned in NICE messages « X29-Server so 

; 44 a $4 ; : tone a length is included. 

> 89 0089 1: v03-002 MKP000S Kathy Perko 28-June- 

;: 0099 1! Redo qualifier handling to use the qualifier" s index into 

; | (91 0091 1! the Parameter Semantic Table (PST) instead of the qualifier's 
; 4 0092 1! Reswecs Management parameter ID. 

: a7 ak ; } d X29-Server entity. 

> 95 0095 1! V03-001 MKP0004 Kathy Perko 3-May-1982 

5 38 s'44 ! : Add qualifier matching to permanent Nata base operations. 

> 98 0098 1} v02-003 MKP0003 Kathy Perko 16-Nov-1981 

: +4 S944 ! } Undo the previous fix. It's wrong. 

; 1 ; v02-002 mKP0002 athy Perko 17-Sept-1981 

; 3 1! 

; 104 1! 

: 105 1! 

; 106 1! 

: 07 1! 

: 108 1 | 


4 
NAL SDEF INE NML DEFINE permanent parameter module 1hese -1984 00:12:41 AX-11 Bliss-32 V4.0-74 Page 3 
iva 4 bec laratiens . 14 et 7 90:48:09 ENML SRE NMLDEF INE .B32; . (2) 


_ 
<= 
oz 


109 1 &SBTTL ‘Declarations’ 


INCLUDE FILES: 


10 
11 1 
1 1 : 
1 1 ! TABLE OF CONTENTS: 
Bo RHE! 
1 1 FORWARD ROUTINE 
1 1 nm\ $def ineknown : NOVALUE, 
18 1 nm S$defentity : NOVALUE, 
19 1 nml_defentity : NOVALUE, 
0 1 nml$define_known_nodes: NOVALUE, 
1 1 nm $define_node : NOVALUE, 
¢ 1 nm\_define_node : NOVALUE, 
1 nm\ $defknownlog : NOVALUE, 
4 1 nm $def logging : NOVALUE, 
5 1 nml_deflogging : NOVALUE, 
6 nm\ Saddevents, 
7 nm $savevents, 
; nml$getrecowner; 
0 
3) 
33 


LIBRARY "LIBS:NMLLIB.L32'; 

LIBRARY 'SHRLIBS:NMALIBRY.L32'; 
LIBRARY "SYSS$LIBRARY:STARLET.L32'; 
! 
; 
i 


nal $gb_ncp_version, 
nml$gu_perm_exec_addr: BBLOCK (2); 


EXTERNAL LITERAL 
nal$_badevtupd, 
nal$_intevtovf, 
nml$_recadded, 


wn 
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34 

35 

36 

37 

38 

3? EQUATED SYMBOLS: 

41 

4@ ' 

4 i OWN STORAGE: 

44 i 

45 

46 ! 

rt 4 : Entity buffer and descriptor. 

49 ‘ 

50 NMLST_ENTBUFFER : BBLOCK CNMLSK_ENTBUFLEN), 

? NMLSQ"ENTBFDSC : DESCRIPTOR; 

1 

54 EXTERNAL REFERENCES: 

36 ‘ 

4 SNML_EXTDEF; 

59 EXTERNA | 

60 

7 

* 

6 | 

64 

65 

66 
| 
| 
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S& 


nml$_norecown; 
sscti ROUTIGT 
d, 


insertf 
nal $matchrecord, 


| 
| 
nml$add_field 
nm $addFilters, 


nate etnxtsnk, 
gece srefi 


ralsepenrTl 

nml$read “known _node_rec, 

nal $readrecord. 
nml$writerecord, 

nmt$send: 
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F INE NML DEFINE permanent parameter module 16-Sep-1984 00:12:4 AX-11 Bliss-32 V4.0-74 Pp 
rivet tt NMLSDEF INEKNOWN Sefine parameters for known en 13-88-1382 90:48:09 ENML SRE NMLDEF INE .B32; ee (33 
> #185 183 1 ZSBTTL "NMLSDEFINEKNOWN Define petoveters for known entities’ 
. ¥ 184 1 GLOBAL ROUTINE NMLSDEFINEKNOWN ( AY bunt on , 
; 5 DuM3, 6um4, 6UMS) : NOVALUE = 
: 189 1 5 1 lee 
; 190 1 3 1 ! FUNCTIONAL DESCRIPTION: 
; «6191 1 1! This routine defines a set of parameters in the permanent 
: 136 19 : data base entry for each entity of the specified type. 
3 194 19¢ FORMAL PARAMETERS: 
: 4 194 1! ENTITY Entity type code. 
199 195 1 DUM1=DUMS Not used.” 
; 199 0197 i IMPLICIT INPUTS: 
; 91 0199 ; NMLSGL_PRS_FLGS Message parsing flags. 
; 08 030) ; SIDE EFFECTS: 
3 05 0 08 Signals errors. 
: 207 0205 1 i-- 
; 208 0 B6 1 
; 209 020 BEGIN 
: 210 0208 
3: 211 0209 LOCAL 
: \¢ 0210 P ! File id code 
ee 0211 param_to_find, ! Parameter to match in permanent database 
3 14 0 \§ ! record. 
3 aS 021 msgsize, ! Message size 
s 16 0214 key, ! Temporary record key buffer 
: Vv 0 1? recdsc : DESCRIPTOR; ! Record descriptor 
: 219 8 i3 fid = sant Sod one tt yess C.entity, eit$b_fileid); 
; $9 0 8 param_to_find = .nml$ab_entitydata C.entity, eit$w_key); 
: 2 20 i Some of the Dereanent database files have more than one entity in them, 
; de 0221 ' For example, NETX25.DAT has all X25 entities (Access, Protocol, and Server). 
3 Se § ' add poreneters to every record in the file which contains a parameter 
: 5 ? matching PARAM_TO_FIND. 
; ; CHEE be re bfdsc, k 
: nml$matchrecord (.fid, nm re sc, key, 
: ; 0 ; -param to. find, 6, 0, ‘ 
: 231 9 recdsc) DO 
3 § 0 BEGIN 
; 1 nml$ab_msgblock Cmsb$l_flags] = 0; ! Initialize message flags 
: 5 4 i add the parameters to the pacity record, and write the updated record 
3 He : } back to the permanent database file. 
; 3s nmi defentity (.entity, recdsc, key); 
; 40 8 Build and send the NICE response message. 


a8" 


INE permanent parameter module | 16-Sep-1984 00:12: 


et re re ly. (nml$ab_msgblock, size); 
nalSsend rr nal sab "sndbut fer, msgs size); 
ot e ay. 


! End of NMLSDEF INEKNOWN 


«TITLE 
- IDENT 
»PSECT 


00000 NML$T_ENTBUFFER: 


-BLK 
00040 NML$Q_ENTBFDSC: 
-BLKB 


4 AX-11 Bliss-32 V4.0-74 x; 
NML.SRC NALDEF INE E.832; 


NMLSDEFINE NML DEFINE permanent parameter modul 


\V04-000\ 

SOWNS ,NOEXE ,2 

64 

8 
NMLS$GB_EVTSRCTYP 
NML$GQ~EVTSRCDSC 
NML$GW~EVTCLASS 
NMLSGB_EVTMSKTYP 


NML$GW~ACP 
NMLSGL “LOGRASK, NML$GQ_ENTSTRDSC 
NML$AB_Q1OBUF FER 
NAL $60 “a10BFD 
NMLSAB~ EXEBUFFER 
NMLSGL~EXEDAT 
NAL Sco” ~EXEDATDSC 
XEBFDSC 


~NAL AB_PRASEM 
SAB-RECEUF, *NAUSAL ENT INE TAB 


A ER_PST 
wil $68. =RUAL LF TER. FORMAT 
NML$GB-F 


NMLSGB_OPTIONS 
NALSGL _ PRS_FLGS 


Mm 4 
NMLSDEF INE NML_ DEFINE permanent paramet dul -Sep-1984 00: 
yO%e000 NMLSDEF INEK xRowN Setine porencters for known en 19780871382 99:48: 
~EXTRN 
eEXTRN 
eEXTRN 
eEXTRN 
eEXTRN 
~EXTRN 
eEXTRN 
eEXTRN 
eEXTRN 
«EXTRN 
PSECT 
001C 00000 ENTRY 
bee ESB SA 
50 04 =A - : Sb00e ULL 
53 0000000060040 9A Bnei MOVZBL 
0000000060040 9F 00019 USH 
*: BF be 90098 CORE 
08 AE OF 090 5 1$: PUSHAB 
7E 7C 00028 CLRQ 
7E 7C QOO2A CLRQ 
3 04 0002C CLRL 
52 0D 0002E PUSHL 
1 AE 9F 000350 PUSHAB 
conooots oF spas 
mapper 30 £9 Oo0ds LBC 
64 D4 00045 CLRL 
5E DD 00047 PUSHL 
0c AE 9F 00049 PUSHAB 
04 AC DD 0004C PUSHL 
coooooooy oo gg, BRE 
54 DD 00059 PUSHL 
seapeper) alice yg a 
000000006 68 oF $bes PUSHAB 
apaseeids BE be OO072 INCL 
AF 11 44 to) BRB 
04 00076 2$: RET 


; Routine Size: 119 bytes, 


Routine Base: 


SCODES + 0000 


74) AX-11 Bliss-32 V4.0-74 
:07 NML .SRCINMLDEF INE .B32; 


_BA 

“RE WN 
NS RTFLD, NMLSRATCHRECORD 
EARCHFLD, NMLSADD FIELDS 

OF ILTERS. Nt $GETNXTSNK 
D_REPLY, nt 

ENFILE, NMLSREAD_KROWN_NODE_REC 
ADRECORD, NMLSWRITERECORD 


D 
ND 
SCODES ,NOWRT 2 


git fryers Save R2,R3,R4 
NML$AB_MSGBLOCK, R4 


§ 
#44. ENTIT 
NAL SABS ENT fYDATACRO3 FID 


NMLSAB_ENT A+3CROJ 
i PARAM. tO, FIND 


PARAM_TO_F IND 
NL $Ga_RECBFDSC 

#10, NMLSMATCHRECORD 
NMLSAB_MSGBLOCK 
RECDSC 


rie un _DEFENTITY 
MS6SI 


ae, NMLS$BLD_REPLY 


NML$AB_SNDBUFFER 
oo, NMCSSEND 
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N 4 
NE permanent parameter module 16-Sep-1984 00:12:4 AX-11 Bliss-32 V4.0-742 
NTITY Define entity parameters 127808713 4 90:48:33 ENML.SRE NMLDEF INE .B32;1 
ZSBITL "NMLSDEFENTITY Define entity parameters’ 
GLOBAL ROUTINE NMLSDEFENTITY (ENTITY, ENTITY_LEN ENTITY_ADR 
QUAL_PST, QUAL_LEN, QUALZADRS : NOVALUE = 


'e4 


; FUNCTIONAL DESCRIPTION: 
i Add parameters to the permanent data base entry for the specified 


i IMPLICIT INPUTS: 
NML$GL_PRS_FLGS Message parsing flags. 


' 

} entity. 

FORMAL PARAMETERS: 

! TITY Entity type code. 

; ENTITY_LEN Byte count of entity id string. 
: ENTITY_ADR Address of entity id string. 

! QUAL_PST Qualifier PST entry address 

! QUAL_LEN Qualifier ID byte count. 

} QUAL _ADR Address of qualifier id string. 
; 

' 

1 

' 


BEGIN 

LOCAL 
fid, ! File id code 
fldadr, 
fldsize, 
Loop 
msgsize, ' Message size 
key, ! Temporary record key buffer 
owner, ' Search key 
recdsc : DESCRIPTOR, ! Record descriptor 
status; 


nml$ab_msgblock Cmsb$l_flags] = 0; 
Add parameters to every record in the file. 


tid = .nml$ab_entitydata C.entity, eit$b fileid); ! Get file id 
owner = .nml$ab_entitydata C.entity, eitSw_keyJ; ! Get search key 


Initialize message flags 


key = 0; ! Initialize record key 
status = nml$matchrecord (.fid, 
palSeq_rechidsc, 


ey. 

nouner, -entity_len, .entity_adr, 

-qual pst, -quat_len, .qual_adr, 
C); 


recds 
If NOT .status THEN 
BEGIN 


Initialize record descriptor and add entity ID field to record buffer. 


NMLSDEF INE 
v04-000 


05 
06 
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co 
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5 
DEF INE permanent parameter module 16-Sep-1984 90: 1634] AX-11 Bliss-3 
SDEFENTITY Define entity parameters 14-Sep-1984 12:50:07 NML.SRCINMLDE 
recdsc [dsc$w_length] = 0; 
§ recdsc Pgscgu-tengen = .nml$gq_recbfdsc Cdsc$a_pointer] + 2; 
4 nma$insertfld (nml$k_max_rec_data, 
5 owner, .entity_len, .entity_adr, recdsc); 
- i If there's a qualifier associated with this entity, add that to 
: the record as well. 
0 IF .nml$gl_prs_flgs Cnml$v_prs_qualifier] THEN 
¢ 4 MAP quel pat: REF BBLOCK; 
4 nma$Sinsertfld (nml$k_max rec data. 
4 4 -qual_pst pst$w_dataid], .qual_len, .qual_adr, 
5 4 recdsc); 
6 3 D; 
H 3 status = nmi$_sts_suc; 
9 2! 1 
: } If everything is all right then add the parameters. 
i 2 IF .status THEN 
i § nml_defentity (.entity, recdsc, key); 
H 2 ; Build and send the response message. 
7 i nml$bld reply (nml$ab_msgblock, msgsize); 
3 § nml$send (nml$ab_sndbuffer, .msgsize); 
0 1 END; ' End of NMLSDEFENTITY 
003c 00000 -ENTRY NMLSDEFENTITY 
55 000000006 00 9€ 00002 MOVAB NMLS$AB_MSGBLO 
¢ 009000006 98 +3 94604 oa WAASINSERTELD, 
68 D4 00018 CLRL_ NML$AB_MSGBLOCK 
50 04 AC 2c C5 00015 MULL3 #44, ERTITY, RO 
51 0000000060040 9A OO01A MOVZBL NML$AB_ENTITYDATACRO), FID 
0000000060040 3 00 g PUSHAB NMLSAB-ENTITYDATA+3CROJ 
53 43 f 00 ; sit igs B{SP)+, OWNER 
08 AE OF 6 . PUSHAB RECDSC 
7E 14 aC 70 000 ova QUAL_LEN, =-(SP) 
7E 0¢ AC 7D 00035 MOVO  ENTITY_AOR, -(SP) 
08 ag DD 00039 PUSHL ENTITY_LEN 
5 D 0005C PUSHL OWNER 
1C Ar F . PUSHAB KEY 
000000006 9 +4 ‘} puss NML$GQ_RECBFDSC 
000000006 oe 50 09 049 Rout £10 > e SAATCHRECORS 
E 3 a 33 BLBS STATUS, 2$ 
08 as B4 8 CLRW et 
OC AE 00000000G 00 02 C1 5 ADDL3 #2, NML$GO_RECBFDSC+4, RECDSC+4 


23 


Save R2,R3,R4,R5 


13 000000006 


; Routine Size: 


ermanent parameter module 
Y Define entity parameters 


~N 
m 


OVYVONNN ON 
"oLmmm oom 


00000000v 00 


000000006 00 


000000006 00 


Routine Base: 


AE 
: 


OoOoroulror rUNmoowwe & FOO 
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SCODES + 0077 
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NML.SRCINMLDEF INE .632; 


LEN, =(SP) 


-(SP) 
MASINSERTFLD 
MLS$GL_PRS_FLGS, 1$ 


QUAL_LEN, =(SP) 

QUAC_ -(SP) 

#10147 =(SP) 

#5, NMASINSERTFLD 
STATUS 


#1 
STATUS, 

SP 

RECDSC 

ENTITY 

#3, NML_DEFENTITY 
MSGSIZE 

#2, NMLSBLD_REPLY 
MS 


NMLS$AB_SNDBUFFER 
#2, NMCSSEND 
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a) 
NML DEFINE permanent parameter module 16-Sep-1984 00:12:41 AX-11 Bliss-32 V4.0-74 
NMC _DEFENTICY Define entity parameters 12286-1382 99:38:6) NAL -SREINMEDEFINE 032: 
; 5 1 1 ZSBITL "NML_DEFENTITY Define ong ity parameters’ 
; 8 § ! ROUTINE NML_DEFENTITY (ENTITY, RECDSC, KEY) : NOVALUE = 
: 338 0334 1 !44 
; 24 0 2 ' FUNCTIONAL DESCRIPTION: 
; Sal 6 7 1! This routine performs common DEFINE functions for both singular 
: ¢g b8 : : } and plural requests. 
: 344 0340 1 | FORMAL PARAMETERS: 
: 345 0341 1! 
3 $08 0 rt: 1! ENTITY Entity type code. 
: 347 0345 1! RECDSC Address of current record descriptor. 
: 348 0344 1! KEY Address of current record key. 
: 349 0345 1! 
; joo 0346 1 !-- 
3 6S) 0347 1 
; 326 0348 BEGIN 
: = 0349 
3; 354 0350 MAP 
5 Soe 0351 2 recdsc : REF DESCRIPTOR; ! Record descriptor 
; 356 be26 2 
, Joe 035 § LOCAL 
; 358 0354 fid; ! File id code 
; 359 0355 
$ se4 Ba26 tid = .nml$ab_entitydata C.entity, eit$Sb_fileid]; ! Get file id 
: 362 0398 3 Add the NICE command parameter fields to the permanent database record. 
: 364 0360 ¢ if nml$add_fields (nml$k_max_rec_data, .recdsc) THEN 
; 365 0361 BEGIN 
: 366 O0¢ 3 nml$writerecord (.fid, .entity, .key, .recdsc, 0); 
: Ser 0365 3 nml$ab_msgblock [msb$b_code] = nma$c_sts_suc; 
; 368 0364 3 
; 369 0365 : 
3 39 tre: Build response message. 
: 372 0368 2 nml$q_entbfdsc Pdscéu. length) = nml$k_entbuflen; ! Initialize entity descriptor 
: a7 9368 nml$q_entbfdsc Cdsc$a_pointer] = nml$ft_entbuffer; 
; 375 0371 nml$getrecowner (.recdsc, 
3 3/8 bs¢ -entity, 
: 377 037 nml$q_entbfdsc, 
: 8 Bere nml$q_entbfdsc Cdsc$w_length]); 
: 380 B76 nml$ab_msgblock ([msb$v_entd_fld] = 1; ! Set entity descriptor flag 
: Ht SAA nml$ab_msgblock (Cmsb$a_entify] = nml$q_entbfdsc; ! Add entity descriptor pointer 
; 385 0379 § END; ! End of NML_DEFENTITY 


001C 00000 NML_DEFENTITY: 


«WORD Save R2,R3,R4 
54 000000006 00 9 00002 MOVAB NMLSAB_MSGBLOCK+4, R4 


why SPE IME EF INE Permanent parameter module 1 
v04-000 FENTITY Define entity parameters 1 
53 00000000" 00 2 09 
50 04 8s § 9 
5 somsped * ved A 1 
AC 3 8) 
7 O3F6 F 3C 00 
000000006 0 3 4 3 
1 E C 
E 04 0002F 
8 AC 0D 000351 
C AC DD 00034 
04 ac OD 7 
4 DD 8 A 
000000006 00 4 § 
64 4 90 0004 
63 40 F 9B 00046 
04 AS CO A3 YE O004A 
; DD 0004F 
DD 00051 
046 AC ODD 4 FFA 
08 AC DD 00056 
00000000v 00 04 FB 00059 
FC AG 9 88 00060 
10 AG 63 9E 00064 
04 00068 


; Routine Size: 105 bytes, Routine Base: SCODE$ + 0137 


1$: 


gine 


1386 99:58:5) — YAML SeBSAREDEF Ne: 9354 


NML$O ENTBF DSC R3 
ry Y, R 
nn $8 ENTITYDATACROJ, FID 
} 14, =(SP) 
; NAL SADD_F LELDS 
-(§p) 
RECDSC 
KEY 
FT 
, NMLSWRITERECORD 

a. NML$AB_MS ck +4 
rok NML$Q~ENTBFDSC 
NML$T_ENTBOFFER, NML$Q_ENTBFDSC+4 
ENTITY 
RECDSC 
#4 NMLSGETRECOWNER 


#16, NMLS$AB_MSGBLOC 
NML$Q_ENTBFDSC, NMLSAB _MSGBLOCK+20 


< 
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way SPE INE NML DEFINE permanent parameter module 16 7-5¢9" 138% 9: 1g: y AX-11 Bliss-32 v4.0- 35°9 Page 13 
v04-0 NMLSDEFINE_KNOWN_NODES Define parameters for k 1 $7880-13 :0 NML ..SRCINMLDEF INE .832; (6) 
; 385 0 1 XSBTTL "NMLSDEFINE_KNOWN_NODES Define parameters is 1 entities’ 

3 1 1 GLOBAL ROUTINE NMLSDEF INE_KNOWN =NOD S (ENTITY, gyn. 

; 387 § 1 “DUMS, DUM4, DUMS) NOVALUE = 

; See 85 1 

3 89 8 4 1 !e4 

; 390 és 13 FUNCTIONAL DESCRIPTION: 

$ 91 8 § 1! This routine defines a set of parameters in the permanent 

; 87 1! data base ontry for each entity in the node database. The 

: 37 8 Hy ! nodes updated in this case are the executor and the remotes. 

: 395 0390 1 | FORMAL PARAMETERS: 

$ +] 0391 1 

$ 9 8 85 1 i ENTITY Entity type code. 

3 98 93 13 DUM1-DUMS Not used. 

; 399 0394 1! 

: 400 0395 1 ' IMPLICIT INPUTS: 

: 401 0396 1! 

: 40 0397 1: NMLSGL_PRS_FLGS Message parsing flags. 

; 40 0398 1! 

; 404 0399 1 | SIDE EFFECTS: 

; 405 0400 1: 

; 406 0401 1: Signals errurs. 

: 407 0402 1! 

a 

(Bie basen 

: aig 0407 2 LOCAL 

; «41 0408 node_type, 

: 416 0409 recdsc: DESURIPTOR, 

3; 415 0410 rewind flag, 

: 416 0411 msgsize; 

: ti bays 3 3 

> 419 0414 i Loopnodes can only have the parameter CIRCUIT, which must be unique. So 

: 420 0415 ! DEFINE KNOWN never apo ces to a ats Apply the DEFINE to the executor 

: : 1 be1$ first, and then to t remote nodes. 

: 4 4 0418 nml$define snete (ontSe executor, 2, 0); 

: 6246 gee rewind _flag = 

: 625 420 WHILE fal Steed. knoun.. node_rec (nml$c_node, 

: $s6 Be 1 nal $9. recbfdsc, 

: r 

; 428 : -tewind flag) dO | 
: 429 4 BEGIN 

: 4 425 rewind -flag = fojse 

: 431 04 6 nml Sab_msgb lock asb$l _flags) = 0; 

: 435 be 8 Add the parameters to the node's record, and write the updated 

: oee 9 record back to the node permanent database file. 
: <3 1 nm define_node (.entity, recdsc, nmn$c_update_rec); 
: 438 : : i | NICE message block so that the modified node's id is 
; 439 ' athaed n the NICE response § aestene . This is done because the 
; 640 5 i architecture requires that, for KNOWN entity operat ions. the entitie IDs 
3; 641 i of the modified entities be returned in the NICE responses. 


5 
NAL SDEF INE FINE permanent parameter module 18-5e 1984 00:12:4 AX-11 Bliss-32 V4.0-74 Page 14) 
vOL~000 F INE. NOUN. NODE Define parameters for k 1 =3007 1382 99 :16:6) ENML.SRE NMLDEF INE .B32; . (6) | 
| 
> 44 437 ! 
; 44 c3 nml $q_entbfdsc pdscBu. length) = nml$k_entbuflen; 
> 4446 nmi $q_entbfdsc [dsc$a_pointer] = nml$t_entbuffer; 
> «64465 440 nmi $getrecowner (recdSc, 
: +¢$ 44) eentity, 
; 44 i nml$q_entbfdsc, 
: 448 44 nmi $q_entbfdsc_ Cdsc$w_length]); 
; 449 44 nmi $ab_msgblock (msb$v_entd 3) = 1; 
; 430 445 nmtSab_msgblock ECmsb$a_entity] = nmigq_entbfdsc; 
; +28 ste } Build and send NICE response message - one for each node updated. 
: rey 449 nml$bid reply (nmlS$ab_msgblock, msgsize); 
: 455 0450 nml$send (nmlS$ab_sndbuffer, .msgsize); 
; 456 0451 END; 
; 457 0452 1 END; ! End of NMLSDEFINE_KNOWN_NODES 
001C 00000 ENTRY NMLSDEF INE KNOWN_NODES, Save R2,R3,R4 0381 
54 000000006 9E 00002 MOVAB NMLSAB_MSGBLOCK, R4 
53 00000000' 5 00009 MOV te ENTBFDSC, R3 
5E ¢ 00 9 SUBL #i2, SP 
7E D 00 MOVQ a. -(SP) 
DD 00016 8 
00000000V 00 FB 00018 
52 DO O001F OVL #1, REWI LAG 0419 
DD 00022 1$ PUSHL REWIND_FLAG 0423 
08 9F 00024 PUSHAB REC 0420 
000000006 9F 00027 PUSHAB NML$GQ_RECBFDSC 
+4 D PUSHL @# 


000000006 98 CALLS + NMLSREAD_KNOWN_NODE _REC 


E9 » 
REWIND FLAG 
CLRL § NMLSAB_MSGBLOCK 
PUSHL #2 
PUSHAB RECDSC 
ENTITY 
CALLS #3, NML_DEFINE_NODE 


MOV7BW #64, NMC$Q_ENTBFDSC 
MOVAB NMLST_ENTBOFFER, NML$Q_ENTBFDSC+4 


00000000v 0 
04 A3 co 


PUSHL R 
PUSHL ENTITY 
RECDSC 
CALL #4, NMLSGETRECOWNER 


00000000v 00 8 
64 BISB2 #16, NMLS$AB_MSGBLOCK 
14 AG E VAB  NML$Q_ENTBFOSC, NMLS$AB_MSGBLOCK+20 
4010 PUSHR #*M<RZ 49 


000000006 00 
0 000000006 


< gh> 
CALLS st NMLSBLD_REPLY 
PUSHAB NMLSAB serres 
» NMCSSEND 
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| 
+ 0418 
PUSHL ; 
CALLS #3, NMLSDEF INE_NODE ; 
‘| ND_FLA ; 
| 


VOU=BHO «NAL SDEFINE_RNGUNCRODES” Befine parancters for k ie Se0-1 888 99:36:6) — ENAC! SRE SNALDEF ine 83024 ee a 


; Routine Size: 138 bytes, Routine Base: SCODE$S + 01A0 
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NML DEFINE permanent parameter module 1b-se -1984 00:12:41 AX-11 Bliss-32 V4.0-74 Page 
NALSDEF INE. RODE Define entity parameters 1 730071382 99:38:53 NML.SRC NALDEFINE 83274 . 
453 ZSBTTL ‘NMLSDEFINE_NODE Define entity parameters’ 
¢ GLOBAL ROUTINE NMLSDEFINE_NODE (ENTITY, ENTITY_LEN, ENTITY_ADR) : NOVALUE = 
'o¢ 
5 ' FUNCTIONAL DESCRIPTION: 
8 : Add a node’s parameters to the permanent data base entry for the 
$23 } specified node. 
61 FORMAL PARAMETERS: 
88 i ENTITY Entity type code. 
64 : ENTITY LEN Byte count of entity id string. 
ret ENTITY_ADR Address of entity id string. 
89 i IMPLICIT INPUTS: 
os NMLSSL_PRS_FLGS Message parsing flags. 
His 
BEGIN 
74 LOCAL 
75 fid, ' Node permanent database file ID 
6 msgsize, ! Message size 
7 ey. ' Record key buffer 
78 key_value_dsc_addr, ! Address of node's key value descriptor 
79 node_type, ' Record's node type (remote, loopnode, or 
80 ! executor). 
81 write_type, ! Indicates whether updating an already existing 
Ht ! node record, or creating a new one. 
8 recdsc : DESCRIPTOR, ! Record descriptor 
$e status; 


Tr 


y 
ey = .nml$ab_entitydata C.entity, oi teu bey: ' Get search key 
id = .nml$ab_entitydata C.entity, eit$b_fileid); ' Get file id 


Set up the key value. 


iF .entity EQL nml$c_executor THEN 
gett -velue_dsc_addr = UPLIT (nmn$c_typ_key_len, UPLIT (nml$c_executor)) 


to get the permanent database record for the node in question. 


ee oe 


key_value_dsc_addr = entity_len; 


status = nml$readrecord (.fid, Node DB file ID 


WEEP OP OPIPPOPOPORIPORONOPORINOPORINOPOPONUPOPONONONONOPONOPUPUPNNY = ts 
m 


GLLRARARARARRRRRRR ERR REPRE EPR RRR RRR RRR RRR EEE 


SBISRRANLSSSLEARASLESSLE 


' 
key, ' Key of reference ID 
cg ( agened dsc_addr, ! Key value of node 
nml$9q_recBbfdsc, ' Read buffer descriptor 
recdsc, ' Return data descriptor 
node_type); ! Entity type of node read 
IF .status THEN 
BEGIN 
write_type = nan$c_update_rec; 
!' If this is not a loop node but the pereneves grove is for loop nodes 
! then return a parameter not applicable error for the Line parameter. 
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5 
FINE t dul 16-Sep-1984 00:12:41 AX-11 Bliss-32 V4.0-74 
FINE_NODE De he entity parame 38 Be 3:3 :07 ENML. SRE NALDEF INE -836¢ 


DE Define entity parameters 14-Sep-1 


! (This assumes that the Line parameter is the only one applicable to 
Loop nodes.) 


if “podentype NEQ aml$c_loopnode AND .nml$gl_prs_figs Cnml$v_prs_loopg] THEN 


nmlSab_msgblock (msb$i_flags] = msb$m_det_fld; 

nml$ab_msgblock [msb$b_code = nma$c_sts_pna; 
nmi$ab_msgblock Cmsb$wdetail] = nma$c_pcno_nli; 
status = nml$_sts_pna; 

END; 

! If the node is a loop node but the parameter group is not for Loop nodes 

enon return an unrecgnized component error. (There must be something 

' better! 

' 


if waen ee EQL nml$c_loopnode AND NOT .nml$gl_prs_figs Cnml$v_prs_loopg] 


BEGIN 
nm $ab_msgblock tnsbsb-coge) = msb$m_det_fid; 


nml$ab_msgblock E[msb$b_code] _ = nma$c_sts_cmp; 
nmlS$ab_msgbiock Cmsb$w_detail] = nma$c_ent_nod; 
status = nml$_sts_cmp; 
END 
ELSE 
BEGIN 


write type = nmn$c_put_rec; 


i Initialize record descriptor, seeving room for the ISAM keys at the 
beginning of the record, and add entity ID field to record buffer. 


recdsc Cdsc$w_length] = 0; 
recdsc [dsc$a_pointer] = .nml$gq_recbfdsc Cdsc$a_pointer] + 


nmn$c_node_keys_len; 
IF .entity NEQ nml$c_executor THEN 
nmaSinsertfld (nml$k_max_rec_data, 
okey, .entity_len, .entity_adr, recdsc); 


' 
! ALL nodes are in the same permanent database file. 

! Loop nodes are uniquely identifyable because they have a circuit 

' (NMASC_PCNO_NLI) parameter and gpd else. If the NICE command 

! is defining a loop node, set the enti Y type accordingly, so the 
Loopnode will be written to the file with the correct node type key. 


iF .nml$gl_prs_flgs Cnml$v 
entity = nml$c_loopnod 
status = nml$_sts_Suc; 


f everything is all right then add the parameters. 
Status THEN 

BEGIN 

nml$ab_msgblock Cmsb$l_flags] = 0; 

nal de¥ing_node (,entifty, recdsc, .write_type); 


_prs_loopg] THEN 
e; 


< 
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S¢ 


4 is srmanent perene er module } “520-198 90: 16:6) et Bliss-32 V4.0-74 Page HF 


wn SEF ine NML_ DEF 
v04 NMLSDEFINE_NODE Define entity parameters L.SRCINMLDEF INE .832; 
4 : : Build and send the response message. 


nml$bld_reply (nmlSab_msgblock, msgsize); 
nml$send (an{ Sab sndbot ter, msgs ise); 


END; ! End of NMLSDEF INE_NODE 


Seee Se Seeese 

IN~ 
Wrow 
oooooo 
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«PSECT SPLITS,NOWRT,NOEXE,2 


0000007 P.AAB: .LONG 7 : 
GB90000%, 00Be PAAR: LONE. 2 ; 


«PSECT SCODES,NOWRT,2 


003¢ 00000 .ENTRY NMLSDEFINE_NODE, Save R2,R3,R4,R5 > 0454 
55 000000006 00 9€ 00002 MOVAB NMLSGL_PRS~FLGS, : 
54 000000006 00 9€ 00009 MOV NMLSAB-MSGBLOCK, R4 : 
SE 14 ¢ 9019 SUBL F 
50 046 AC 2c ¢5 0001 MULL3 #44. ENTITY, RO + 0489 
0000000060040 of 00018 PUSHAB NML$AB_ENTITYDATA+3CRO] : 
04 AE 9 C 0001F MOVZWL @(SP)+7 KEY : 
51 0000000060040 9A 900¢3 MOVZBL WNMLS$AB/ENTITYDATACROJ, FID + 0490 
07 04 AC D1 00028 CMPL ENTITY. #7 + 0494 
09 12 0002F BNEQ 1$ : 
50 00000000° 00 H 90 1 MOVAB 3h KEY_VALUE_DSC_ADDR + 0495 
50 08 AC 9E OO03A 1$ MOV ENTITY_LEN, KEY_VALUE_DSC_ADDR + 0497 
SE pp OO3E 2$ PUSHL SP + 0498 
10 AE F 0004 PUSHAB RECDSC F 
000000006 Q 9F 0004 PUSHAS NML$GQ_RECBFDSC ; 
0 DD 00049 PUSHL KEY_VACUE_DSC_ADDR + 0500 
16 AE 9F 00048 PUSHAB KEY + 0498 
51 DD 0004 PUSHL FID F 
000000006 99 Q FB 0005 CALLS #6, NMLSREADRECORD ; 
5 D 905 MOVL RO. STATUS : 
36 3 E9 0005A BLBC STATUS, 4$ > 0504 
DO 0005p MOVL #2, WRITE_TYPE : 05 
05 6 D4 a8 CPL NODE_TYPE: rh : 051 
10 01 «AS 0 i 3 BBC #3, NMLSGL_PRS_FLGS+1, 3$ ; 
64 BO 06A MOVL #2. NMLSAB-MSGBLOCK : 0515 
4 Ab 1 F 060 MNEGR ff : NMLSAB_MSGBLOCK+4 ; 916 
8 Ad OFS) «BF OB 1 MOVW #501, NMLSAB_MSGBLOCK+8 : 051 
5 c CE 77 MNEGL #44, STATUS F 018 
0 E 0 7A 38: CMPL NODE_TYPE, #5 : 052 
4B 1 7D BNEG 7 ; 
46 01 «AS E 7F BBS #3, NMLSGL_PRS_FLGS+1, 7$ : 
64 p MOVL #2. NMLSAB-MSGBLOCK : 05 8 
04 Ad é 7 MNEGB #8, NMLSAB-MSGBLOCK+4 : 0529 
08 As B CLRW NAL SAB MSGBLOCK+ ; 2 
52 19 CF MNEGL #16, STATUS : 0531 
37 1 9 BRB 7$ > 0504 
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NAL SDEF INE NML DEFINE permanent parameter module 18 Sep-19 AX-11 Bliss-32 V4.0-74 Page 
06.000 NMLSDEF INE NODE Define entity parameters 730071382 99: 4g: $y NML ..SRCINMLDEF INE .B32; : 
53 01 DO 00093 4$ MOVL WRITE_TYPE : 

OC AE B4 CLRW Retost : 

10 AE 000000006 99 OA Ci ADDL3 # NML$GO_RECBFDSC+4, RECDSC+4 : 
06 =A b A CMPL NTITY, # : 

1 A BEQL : 

0 AE Hi OA PUSHAB RECDSC : 

7E AC 7D OOOAB ova ENTITY _LEN, =(SP) : 

1 AE pp OOAE PUSHL : 

7E O3F6 BF 3¢ OB¢ MOVZWL ; 514, (SP) : 

000000006 09 Fe 008 CALLS | NMASINSERTFLD : 

04 01 A E BE 5$: BBC NAL $GL _PRS_FLGS+1, 6$ : 

04 AC D ¢ MOVL 58. ITY : 

5 1 D ¢ gs: MOVL #1, 7st S : 

11 2 £9 OOOCA 7S: BLBC = STATUS, 8$ : 

64 D4 000CD CLRL §NML$AB_MSGBLOCK : 

3 pp OOCF PUSHL WRITE TYPE 3 

10 AE 9F 00001 PUSHAB RECDSC : 

04 aC DD 000D4 PUSHL ENTITY : 

00000000v 00 03 FB 00007 CALLS #3, NML_DEFINE_NODE : 

08 AE 9F OOODE 8s: PUSHAB MSGSIZE ; 

54 DD 000E1 PUSHL  R4 ; 

000000006 00 02 FB O00E3 CALLS #2, NMLSBLD_REPLY ; 

08 AE DD OOOEA PUSHL MSG ; 

000000006 00 9F O00ED PUSHAB NMLSAB SNDBUFFER : 

000000006 00 02 FB O00F3 CALLS #2, NMCSSE : 

04 OOOFA RET ; 


; Routine Size: 251 bytes, Routine Base: $CODE$S + 022A 
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NE permanent parameter module 16-Sep-1984 00:12:4 AX-11 Bliss-32 V4.0-74 
NE _NODE Befine entity parameters 1 ~3007 1388 99:38 36) NML .SRC NMLDEF INE 8 ; 


ZSBITL_ "NML_DEFINE_NODE Define ong ity parameters’ 
ROUTINE NML_DEFINE_NODE (ENTITY, RECDSC, WRITE_TYPE) : NOVALUE = 


1o4 
! FUNCTIONAL DESCRIPTION: 

This routine performs DEFINE NODE functions for both singular 
and plural requests. 


FORMAL PARAMETERS: 


ENTITY Entity type code. 
RECOSC Address of current record descriptor. 
WRITE_TYPE Indicates whether updating an already existing node 


record, or if creating a new one. 


BEGIN 


MAP 
recdsc : REF DESCRIPTOR; ! Record descriptor 


LOCAL 
f 


fidsize, 

fidadr, 

node_name_dsc : VECTOR (2), 

node_type, 

original_rec : BBLOCK Cnml$k_recbflen], 
os inal_rec_dsc : VECTOR (2), 

status; 


Save the original contents of the node's database record so that, if the 
record hasn't been modified after the changes have been applied, it isn't 
written back to disk. This should vaprove performance of command procedures 
that are reapplied after only a few changes (as is commonly done to update 
the node database). 


original_rec_dsc (1 original_rec; . 
CH VE T.retdsc Cdsc$w_length]> .recdsc Cdsc$a_pointer], original_rec); 


i fq new peroneter fields to the permanent database record for the node 
being DEF INEd. 


if nml$add_fields (nml$k_max_rec_data, .recdsc) THEN 
BEGIN 


original_rec_dsc th . srecdsc Cdectu_longthi: 


i Node must have either address or Line parameter specified. 


' 

status = nml$_sts_suc; 

fldadr = 0; 

IF NOT (nma$searchfid ( -recdsc, 
naade pcno_nl i. 
fldsize, 
fldadr) 


sé 


. 
. 
. 
. 
7 
e 
o 
. 
7 
« 
. 
. 
2 
o 
° 
° 
. 
o 
+ 
o 
. 
° 
© 
° 
. 
o 
© 
2 
+ 
o 
. 
& 
+ 
° 
o 
o 
. 
. 
o 
eo 
7 
e 
. 
. 
. 
° 
. 
o 
7 
- 
° 
° 
o 
. 
2 
° 
+ 
2 
. 
e 
. 
e 
. 
_ 
e 
o 
. 
oO 
. 
o 
. 
oe 
. 
o 
. 
o 
. 
e 
. 
e 
. 
o 
. 
. 
. 
e 
. 
2 
. 
* 
. 
° 
. 
e 
. 
o 
. 
° 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
* 
. 
7 


N 5 
NMLSDEF INE NML DEFINE permanent parameter module 16-Sep-1984 00:12:41 AX-11 Bliss-32 V4.0-74 Page 21 
vOs-000 NML_DEF INE NODE Define entity parameters 12-388-1 382 93:36:07 ENML «SRC NMLDEF INE .832; . &) 
: 637 4 OR nma$searchfid ( .recdsc, 
; o38 3 ° a nase -péno.add, 
; 639 6 4 4 fldsize, 
; 640 6 4 fldadr) | 
: eh : i ace - -entity EQL nml$c_executor) THEN 
: $08 6 § 4 3, nobel flags = msb$m_det_fid; 
> 644 6 4 nml$ab_msgblock [msb$b_code = nma$c_sts_pms; 
; 645 638 4 nml$ab_msgblock [msb$w_detail] = nma$c_pcnd_add; 
: ore see 4 status = nml$_sts_pms; 
: $48 064 q 
; 649 r6 ! DEFINE fields added to the node's permanent database record, check 
: re petz } se pee tt ee record has changed at all. If it has, write the record 
; 63¢ 0645 i : 
3; > 0646 IF .status THEN 
> 654 0647 4 
3; 655 0648 4 IF CHSNEQ (.recdsc Cdsc$w_length], .recdsc Cdsc$a_pointer] 
: $26 +34 : ace -original_rec_dsc CO], .original_rec_dse (1), 05 THEN 
: 658 0651 5 fid = .nml$ab_entitydata C.entity, eit$b_fileid]; ! Get file id 
: 023 be3¢ ? status = nml$writerecord (.fid, .entity, 0, .recdsc, .write_type); 
: 661 0634 4 IF -gtatus EQL rms$_dup THEN 
: $68 0656 5 
> 664 0657 5 ! Node name is not unique. (Address was checked in 
; 665 0658 5 ! NMLSDEF_NODE_ADDR since the address aay to the node 
; 666 0659 5 ! database allows duplicates). So, the DEFINE cannot be 
: pot aeee : } performed. 
; $4 gee : node_name_dsc C1] = 0; 
: 671 0664 5 i Get the duplicated node name from node record that the NICE 
: $76 pete : command is attempting to modify. 
: 674 0667 5 nma$searchfld (.recdsc, nma$c_pcno_nna, 
: 675 0668 5 node_name_dsc fo, 
3 $76 +444 2 node_name_dsc (1 5S; 
; 678 0671 5 i Read in the record for the duplicated node so that it's ID is 
3 O28 pore ; returned in the NICE error response. 
: 681 674 nml$readrecord (.fid, ' File Ib 
; 68 0675 5 UPLIT (nma$c_pcno_nna), ! Key type 
; 68 0676 5 node_name_dsc, ! Key value = node name 
3: 4684 0677 5 nar ege, rece resc, ! Read buffer descriptor | 
3; 685 0678 5 -recdsc, ! Return record descriptor 
3; 686 0679 5 node type) ! Node type 
: 687 680 5 nml\$ab_msgblock Cmsb$l_flags) = msb$m_det_fld; 
3; 688 681 nm $ab_msgblock msb$b-code = nma$c_Sts_pva; 
: o8) ons nml$ab_msgblock msb$w_detail] = nma$c_pcno_nna; 
: 691 0684 i Set up the NICE posecge block so that the duplicate node id 
: 68 boas is included in the NICE response message. 
: 


— dine < ALS ES |, eRe 
; ie 
wy SPE LINE NML 43 INE RODE be} poreneter module 18-Sep-1984 OG: 1g 34) eg Bliss-32 V4.0-74 Page (85 NAL 


F 

NML_DEF ODE Define entity parameters -Sep-1 ML.SRCINMLDEF INE .B32; Vv04 
> 694 687 nml$q_entbfdsc Cdsc$w_length] = nml$k_entbuflen; 
; 695 eas nmlsqrentbtdsc gscgu-cengen) = nml$t_entbuf fer; 
: 696 689 nml$getrecowner (.recdsc, 
; 697 $90 -node_type 
; 698 691 nml\$q_entbfdsc, 
; 699 69 nml$q_entofdsc Cdsc$w_length]); 
; £00 069 nml\$ab_msgblock Emsb$v_entd_fld] = 1; 
: 701 0694 nml$ab_msgblock Cmsb$a-entity] = nml$q_entbfdsc; 
3; 0695 END 
: 10e 069 d \Sab_msgblock Cmsb$b_code] $c_st 
; nm\$ab_msgblock (Ems ode] = nma$c_s 3 
: 705 0698 3 END; in F ae ne 
; 706 0699 END; 
; 707 0700 1 END; ! End of NML_DEF INE_NODE 

-PSECT $PLIT$,NOWRT,NOEXE,2 : A 
000001F4 QO00C P.AAC: .LONG 500 3 


«PSECT S$CODES,NOWRT,2 


O3FC 00000 NML_DEFINE_NODE: 
«WORD Save R2,R3,R4,R5,R6,R7,RB,RI : 0574 
59 000000006 00 9€ 00002 MOVAB NMASSEARCHFLD, R9 ; | 
58 00000000' 00 9€ 00009 MOVAB NML$Q_ENTBFDSC, RB ; 
57 000000006 00 9€ 00010 MOVAB NMLS$AB_MSGBLOCK, R7 F 
5E FBES CE 9€ 00017 MOVAB -1052(SP) : 
56 08 AC 00 0001¢ L  RECDSC, R6 + 0612 
Oc AE 66 3C 00020 MOVZWL (R6), ORIGINAL_REC_DSC ; 
10 AE 16 AE 3 00024 MOV ORIGINAL_REC, ORIGINAL REC_DSC+4 > 0613) 
16 AE 04 86 66 28 00029 MOVC3 (R6), @4TR6). ORIGINAL REC : 0614, 
56 DD 0002F PUSHL R : 0619 | 
7E O3F6 BF 3C 00031 MOVZWL #1014, -(SP) ; 
000000006 00 02 FB 000 CALLS #2, NMLSADD_FIELDS ; 
01 5 EB 0003p BLBS RO. 1$ : 
4 00040 RET ; 
54 01 00 90041 1$: MOVL #1, STATUS : 962 
6E D4 00044 CLRL = FLDADR > 0625 
SE DD 9004 PUSHL SP + 0626 
08 AE OF : 4 PUSHAB FLDSIZE ; 
7E O1F F 3C 0004 MOVZWL #501, -(SP) : | 
6 DD 905 PUSHL R6 ; 
69 4 fe b2 CALLS #4, NMASSEARCHFLD 3 
28 0 £8 000 BLBS RO. 2$ : 
SE 0D 00058 PUSHL > 0630 | 
08 AE OF A PUSHAB FLD 1ZE ; | 
7E O1F6 «BF O3C p MOVZWL #502, -(SP) : | 
6 DD 0006 PUSHL ; 
69 4 FB 064 CALLS #4, NMASSEARCHFLD ; 
16 0 € 0 7 BLBS =o ; 
07 04 A B A CMPL NfITY, #7 > 0634 | 
10 13 00 6 BEQL ; 
67 02 pd 000 MOVL #2, NMLSAB_MSGBLOCK > 0636 


ay See Ie NML DEFINE pernenent parameter module 
v04-0 NML_DEFINE_NODE Define entity parameters 


ee A? 1D 
8 A? O1F6 
54 A 


01 4G 

Oc AE 00 04 86 66 
10 3 

50 04 AC C 

52 0000000060040 

oc AC 


000000006 00 


rh 
E 
04 =A 
5 
0 
50 
QOO184EC = BF ee 


E 

FC AD 

FC AD 

F8 AD 

7E O1F4 : 

69 04 

08 AE 

56 

000000006 00 

F8 AD 
00000000" 


OMOVDIO MMO *WOOVMMEM ODIO FLIoCoryYwW VCLOMmMmom 


Dor "TOOOT ONOWOUOI “VCO NOC VTVTTC ON MWOMOoWo 


0 
2 
000000006 00 06 
67 02 
04 A? 10 
08 A? O1F4 = BF 
68 40 8F 9B 
04 ABs co ae 9E 
58 DD 
58 DD 
10 AE OD 
56 DD 
00000000v 00 04 F 
67 10 8 
14 A? 68 9€ 
04 
04 A? 01 90 


; Routine Size: 286 bytes, Routine Base: S$ CODES + 0325 
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5$: 
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AX-11 Bliss-32 V4.0-742 
NML.SRCINMLDEF INE .B32;1 


#29, NMLSAB MSGBLOCK +4 
¢ 02, NML$AB_MSGBLOCK+8 
#38, STATUS 
STATUS, 3 


(R6), 4(R6), #0, ORIGINAL_REC_DSC, = 
QQRIGINAL_REC_DSC+4 


#44, ENTITY, RO 
NML$AB_ENTITYDATACROJ, FID 
WRITE_TYPE 


“oz =~ 
= 
- 
wr 
, 

7 +) 
_ 
“4 
m 
2 
m 
oO 
Oo 
2 
i) 


E_NAME_DSC+4 
aang ar I 4 


NAME 
00, (SP) 


#4, NMASSEARCHFLD 
NODE_TYPE 


R 

NML$GQ_RECBFDSC 
NODE _NAME _DSC 
P.AAT 

FID 

#6, NMLSREADRECORD 
#2, NMLS 


#500, NM 

#64, NML$Q_ERTBFDSC 
NMLST_ENTBOFFER, NML$Q_ENTBFDSC+4 
RB 

NODE_TYPE 

#4, NMLSGETRECOWNER 

#16, NMLS$AB_MSGBLOCK 
NML$Q_ENTBFDSC, NMLSAB_MSGBLOCK+20 


#1, NMLSAB_MSGBLOCK+4 


Se Se Se Ge Se Se Se Be Ge Be Se Se Se Ge Se Ge Se Se Se Ge Se Se Se Se Se Ge Se Fe Se Be Se Se Se Se Fe Se Be Ge Se Fe Ge Fe Be Fe Fe Be Se 


De Se Oe Oe Oe Be Se Se Be Se Se Se Be Se Se B+ Se Se Se Ge Se Se Se Se Se Ge Se Fe Se Se He Se Be Se Se Se Se Se Ss Se Se Se Se Se SHS Se Se Oe Se FHSS SS Se ee Se Oe 


ee ee ee ed ee a me a a ee ee ee ee ee ce ee me ee ee me ee ed ed ed dd dd od oo do 


> 6 
wy SPE INE WML DEFINE peraenent parameter module 19-se0°12 4 90:1 741 ope Bliss-32 el od 
v04- NMLSDEFKNOWNLOG Define parameters for known lo 14-Sep-1984 12:50:07 NML.SRCINMLDEF INE .B32; 


; 709 701 1 ZSBTTL "NMLSDEFKNOWNLOG Define perepeters jer anges logging entities’ 
; 710 7 § 1 GLOBAL ROUTINE NMLSDEFKNOWNLOG ( a DUM buy ° 

: 711 703 1 DUM3, 6UM4, 6UMS) : NOVALUE = 

; Ne 7046 1 S44 

Ry 705 1 ! FUNCTIONAL DESCRIPTION: 

: 714 £8 3. This routine defines a set of parameters in the permanent 
3 ar ye ! data base entry for each logging entity. 

3s fi7 0709 1 ! FORMAL PARAMETERS: 

s 718 0710 1! T Entity type code. 

B 6g 0711 1! DUM1=DUM5 Not used. 

: 720 brie 1! 

; 721 71 1 ! IMPLICIT INPUTS: 

3 7 ¢ 0714 1! NMLSGL_PRS_FLGS Message parsing flags. 

Se 0715 1! 

: 726 0716 1 ! SIDE EFFECTS: 

; 725 0717 1! Signals errors. 

: 726 0718 1! 

: Ter 0719 1 !-- 

; 728 0720 1 

A C34 144 2 BEGIN 

; 730 07 ; 

3 gl 072 LOCAL 

$ U3 0724 ° ! File id code é 

. 0725 2 key, ! Index key into logging file. 

3; 734 0726 § exec_addr, ! Address of executor node. 

; 735 0727 recdsc : DESCRIPTOR, ' Descriptor of logging database record. 
3; 736 0728 2 source _blkdsc: DESCRIPTOR, ! Descriptor for event source block. 
s io 0729 § source ptr; ! Pointer to event source block. 
; i= 0730 

; 739 0731 

; my O78 tid = ,nml$ab_entitydata C.entity, eit$b_fileid); 

3s 76 0734 ! Add Logging parameters only for sinks that currently exist, or 
; eer oes } for sinks that are logging events at the executor node. 

; mM a7? INCR ont FROM nma$c_snk_con TO nma$c_snk_mon DO 

3: 747 0739 IF “nal Sal _pre_tigs Cnml$v_prs_esipg] THEN 

: 748 0740 4 BEG! 

: 749 0741 4 key = 0; 

3; 0 2544 4 ‘ 

s 1 0745 4 ! If the sink already has an entry in the sink (ESI) permanent 
: 23g o7ee ? database, modify it. 

: 754 0746 4 iF nml$matchrecord (.fid, nal$gq_recbfdsc key, 

: Ge are 4 nml$c_key_sink, 1, snk 

: 756 748 4 , 0,°0,.~ ! No qualifier 

3 for 749 4 F recdsc) THEN 

; 758 750 4 nml$deflogging (.entity, .snk, 0) 

; 759 751 4 ELSE 

: 760 P36 4 H 

; 761 753 4 ! If the filter database (EFI) specifies events to be 
: 76 754 4 ' logged to this sink on the executor node, modify the 
; 76 755 4 ' sink (ESI) database. 

: 764 726 4 : 

: 765 757 ‘5 BEGIN 
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v 
a 
ve} 
e 
~ 
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“eae 7 exec_addr = 0; ; 
; 76 r38 key = 6; : 
; 768 760 ! : 
; 769 761 ! Get the event filters for the executor node from the EFI . 
: 770 106 ! database. Then search through the source blocks (which ; 
s 77 76 ! specify the sink type, source any, and filters) to see : 
; wre 764 ! if any of the events are specified for the sink currently : 
. 7 765 : — processed. If so, do the define in the ESI database ‘ 
3 ae te } for this sink. : 
: 776 0768 IF nml$matchrecord (.fid, nml$gq_recbfdsc, key, : 
: ier 143 nma$c_ clovs n, 2, exec addr, ; 
; 778 770 - 9, YU, ! No qualifier 3 
; 779 0771 recdsc) THEN 3 
; 780 Bree 6 BEGIN $ 
; «781 0773 6 ! 3 
; 7 0774 6 ! Find the events in the permanent database record, and check F 
: 78 0775 6 ! to see if ny of them are being logged to the sink, SNK. If : 
s ree pre ? } so, update the permanent database. : 
: 786 p78 6 source _blkdsc Cdsc$a_pointer] = 0; . 
: 787 0779 6 IF nma$searchfld (recdsc, 3 
; 788 3780 6 nma$c_pclo_eve : 
: 789 781 6 source_blkdsc Edsc$u_tengtn) 3 
; 790 14-04 § source_blkdsc dsc$a_pointer4) THEN $ 
: 791 78 BEGIN 3 
: 79 0784 7 source_ptr = 0; $ 
; 79 0785 7 IF nal Spetnatsnk (source _blkdsc, .snk, source_ptr) THEN 3 
> 794 0786 7 nmi $deflogging (.entity, .snk, 0); : 
; 795 0787 6 END; 3 
: 796 0788 5 END; 3 
s 797 0789 4 END; 3 
: 798 0790 3 END; 3 
; 799 0791 2 END; $ 
; 800 0792 1 END; ! End of NMLSDEFKNOWNLOG Ps 


cc ce ee me ee ek ek ed wd ed = wd ts ed dd 3 = td ed 


001¢ 00000 .ENTRY NMLSDEFKNOWNLOG, Save R2,R3,R4 : 0702 

54 000000006 00 9€ 0000 MOVAB NMLSMATCHRECORD, R4 : 

53 000000006 00 9€ 000 MOV NML$GQ_RECBFDSC. R3 F 

SE = ¢ 91 SUBL a : 
50 04 AC 2¢ f 1 MULLS #44. ENTITY, RO : 0732 
5 0000000060040 oA 001 mOV ZBL NAL SAB_ENTIFYDATACROI, FID S eons 
7A 000000006 Hy E1 00022 18 BBC #4, NMLSGL_PRS_FLGS+1, 3$ : 0739 
AE D4 OO02A CLRL Y : 0741 
AE OF PUSHAB RECDSC > 0746 

7E 7C cLRQ = : 

7E p4 CLRL = = (SP) ; 

AF F PUSHAB SNK ; 

DD 7 PUSHL #1 : 

2 CE 9 MNEGL #2, -(SP) ; 

AE OF C PUSHAB KEY : 

OC BB 0003F PUSHR #*M<R2,.R3> : 
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NMLSDEF INE NAL DEFINE permanent parameter module 16-Sep-1984 712:4 AX-11 iss- 4.0-74 
irae dit NMLSDEFKNOWNL OG Define parameters for known lo 12-828- 1382 90:18:43 YAMLUSRE sae oee We (o35. sas (88 
64 A FB 4} CALLS #10, NMLSMATCHRECORD ; 
04 «AE ti 47 CLRQ —«EXEC_ADDR : 0758 
18 AE 9F OO04A PUSHAB RECDSC + 0768 
7E 7C 00040 CLRQ. ss =( SP) : 
7E 04 QO04F CLRL ss = (SP) ; 
14 AE F 00051 PUSHAB EXEC_ADDR ; 
0 D 4 PUSHL @# : 
7E C8 BF 9A 00056 MOVZBL #200, -(SP) ; 
- Of ob 5080 BUHAY Sener? R3> ° 
64 gh FB 005 CALLS #10, NMLSMATCHRECORD F 
16 AE D4 boes CLRL SOURCE_BLKDSC+4 : 0778 
14 AE 9F 00068 PUSHAB SOURCE ~BLKDSC+4 + 0782 
14 AE 9F 00068 PUSHAB SOURC “BLKDSC : 0781 
” oe OR Sr O00r¢ Pusuas necpsc : 0779 
000000006 00 4 FB 0007 CALLS #4, NMASSEARCHFLD + 0781 
= 0c ar eS a997 aati SOURCE_PTR : 07 
OC AE OF Oo0Re PUSHAB SOURCE-PTR + 0785 
% AE 4 S0088 PUSHAB SOURCE BLKDSC : 
000000006 00 03 FB 008 CALLS a3, NNC'SGETNXTSNK : 
7E D4 00095 28: CLRL =. = (§P) + 0786 
Be AE BD O009A PUSHE ENTITY ; 
00000000v 00 03 FB 90090 CALLS 43. NMLSDEF LOGGING : 
FF78 6E 01 03 F1 OOOA4 3S: ACBL sa#3. #1, SNK, 1$ : 0737 
04 OOOAA RET : 0792 


; Routine Size: 171 bytes, Routine Base: SCODES + 0443 
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NAL SDEF INE NML DEFINE permanent parameter module 18-56 -1984 00:12:41 AX-11 Bliss-32 V4.0-74 Page 27 NAL 
rivet tt NAL SDEF LOGGING Def ne logging parameters 14-Sep-19 4 99:38:69 NML-SREINMEDEF INE B3204 . «185 v4 
; 80 793 1 ZSBITL "NMLSDEFLOGGING Define logging parameters’ | 
3 88 794 1 GLOBAL ROUTINE NMLSDEFLOGGING CENT TTY RNK. DUme 3] 
: 804 199} DUMS, DUM4, DUM5S : NOVALUE = : | 
: 797 1 144 71 
: : re ! FUNCTIONAL DESCRIPTION: : | 
: 09 00 1: Add parameters to the permanent data base entry for the specified : 1 
: si? 4 ’ logging entity. : | 
: big 88 | FORMAL PARAMETERS: 
; Hh $8 1 i ENTITY Entity type code. :1 
; 815 o6 1! SNK Logging sink type. 3 1 
; 318 Hts : DUM2-DUMS5 Not used. ; | 
: 818 09 1 | IMPLICIT INPUTS: :1 
3 513 0810 1! 3 1 
; 820 pat) 1! NMLS$GL_PRS_FLGS Message parsing flags. 3 1 
3s 821 sig 1! NML$GW_EVTSNKADR Sink node address. 3:1 
; 8 ; 0815 1! S| 
BO RE is 3 
: $58 O86 BEGIN :1 
; 837 bea 5 Loc 2 
: 828 $819 sink_node_addr, ! Address of node where events get 31 
; 4 0820 ' Logged. a] 
; 8350 Be 1 fid, ' File id code g 1 
; 831 8 ¢ msgsize, ! Message size 3 1 
3 S36 08 ey. ' Temporary record key buffer 31 
3; § 0824 owner, ' Search key $7 
: te o8 é recdsc : DESCRIPTOR; ' Record descriptor : ! 
: ' :1 
; B37 os 3 Decide if the parameter group is for filters (EFI) or sinks (ESI). : ! 
; 37) 08 ? if mets l_prs_flgs Cnml$v_prs_esipg] THEN 3 : 
; 841 3 § nml$defentity (nml$c_sink, 1, sak, 31 
: rh 8 - 0, 0); ! No qualifier for logging. 3 1 
; 84 834 RETUR 31 
3 ate 0835 END; ; i 
: Big H $ nml$ab_msgblock Cmsb$l flags4 = 0; ! initia} ize message flags 1 
; se 8 fid = inm Sab_entitydate nml$c_lo ging, eit$b fileid);: ' Get file id 24 
3 : i owner = -nal$ab_entitydata Cnml$c_Cogging, eitSw_keyJ; ! Get search key : 
: $56 1 i If the sink node (node to log the events at) is the executor node, 31 
3 $2) § : store the node's address as zero in the permanent database. : 
; 3g 4 2 IF .nml$gl_prs_flgs Cnml$v_prs_exesnk] THEN : 1 
3 3¢ 5 me sink_node_addr = 0 : 
: 36 ; sink_node_addr = .nml$gw_evtsnkadr; ; 
: 858 rk: key = 0; ! Initialize record key : 1 
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NAL SDEF INE NML_ DEFINE permanent parameter module 16-Sep-1984 00:12:4 AX-11 Bliss-32 V4.0-74 
v04 NMLSDEF LOGGING Def ne Logging parameters 1 30071382 9953839) ENML SRE NMLDEF INE .B32; 
; 859 0 ' 

: 0 ! If there is already a record in the event filter (EFI) database for 

: 1 ' this sink node, read it in and mod fy it. Otherwise, create a new 

; 6¢ 33 i record in the logging database for the sink node. 

: 864 38 if NOT nml$matchrecord (tig. 

5 5 2$ nml$gq_recbfdsc, 

3 ey. 

3 1 28 ouner 2, sink node_addr, 

; 868 5 o @ De ! No qualifier. 

3 9 0860 recdsc) THEN 

iho Roe 

; r¢ 0868 i Record not found so create a new one by adding the record owner field. 
; 87 0864 ! In the case of the EFI database, the sink node address is the owner 

3 Le tre } field. 

: 87 ORG? recdsc Cdsc$w_length)] = 0; ! Initial descriptor 

; S7 0868 recdsc [dsc$a_pointer] = .nml$gq_recbfdsc bgscSe_pointers + 2; 

; 578 yh nmaSinsertfld (nml$k_max_rec_data, .owner, 2, sink_node_addr, recdsc); 

; 880 0871 nml$ab_msgblock (Cmsb$l_flags] = epee nee fld; 

: 881 oe76 nmi $ab_msgblock Cmsb$l—text) = nml$_récadded; 

3 eee 087 END; 

; 88 0874 

> 884 0875 ! 

3 nH Ba78 Add the event filters to the record. 

; rt +464 nml def logging (.snk, .Sink_node_addr, recdsc, key); 

; pt ttt Add entity id (sink type code) to entity buffer for NICE response message. 
; 891 088 nml$q_entbfdsc Cdsc$u_ length] = 1; 

; FF 088 nml$q_entbfdsc Cdsc$a_pointer] = nml$t_entbuf fer; 

5 Sez Bane nml$t_entbuf fer<0,8> = .snk; 

: 895 ry i Set up NICE response message information to add the entity to the NICE 

; 896 it ! response message. 

: 897 888 ! 

; 898 0889 nml$ab_msgblock (Cmsb$v_entd_fld] = 1; 

: a pany nml$ab_msgblock msb$a_entity) = nml$q_entbfdsc; 

: +d O89s ; Build and send the NICE response message. 

; 308 89 nml$bld reply (nmiSab_msgblock, msgsize); 

: 904 1944 nml$send (nml$ab_sndbuffer, .msgsize); 

3; 905 896 END; ! End of NMLSDEFLOGGING 


« pooonnn» anMHE $9888 EWLRY ALEBEELREFUNE” ave 2.85.0 
3 attain 09 9 HOVAB NML$AB_MSGBLOCK, R3 
F 4’¢€ 19 SUBL ue , SP 

11 000000006 04 € 1 #4, NMLSGL_PRS_FLGS+1, 1$ 
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L_DEF 1 
NMLSDEF LOEGENG Define logging parameters 14-Sep-19 NML.SRCINMLDEF INE .832; 
ze 7 1B CLRQ 0s = (SP) : 0832 
E p 1D CLRL 0s = (SP) : 
08 aC F OOO1F PUSHAB SNK : 
DD 2 PUSHL # : 
¢ 0D PUSHL . : 
FBSE CF FB 5 CALLS , NMLSDEFENTITY : 
04 B RET : 831 
4 C 1$: CL ; NML$AB_MSGBLOCK + 0837 
59 000006 A E MOVZBL NMLSAB-ENTITYDATA+44, FID : 0838 
00 006 § MOVZWL NMLSAB-ENTITYDATA+47, OWNER + 0839 
04 006 E BLBC  -NMLS$GL~PRS FLGS#1, 2$ + 0844 
i b4 4 cURL NK _NODE_ADD + 0845 
6E 000000006 00 3¢ 0 3 MOVZWL NMLSGW_EVTSNKADR, SINK_NODE_ADDR ; 0847 
4 AE be ef $ CLAL KEY : 0849 
C AE OF 0 3 PUSHAB RECDSC + 0855 
7E 7¢ 4 CLRQ = = (SP) : 
7E D4 0096 CLRL = = (SP) : 
10 AE OF 0 5 PUSHAB S1NK_NODE_ADDR : 
9 DD 00058 PUSHL # : 
D 0005D PUSHL OWNER : 0858 
20 AE 9F O005F PUSHAB KEY > 0855 
000000006 9 OF 0068 PUSHAB NMLS$GQ_RECBFDSC 3 
DD 000 PUSHL ; 
000000006 00 A FB 00064 CALLS #10, NMLSMATCHRECORD : 
2D 0 €8 00071 BLBS RO ; 
OC AE B4 99074 CLRW RECDS¢ + 0867 
10 AE 000000006 00 02 C1 00077 ADDL3. #2, NMLS$GQ_RECBFDSC+4, RECDSC+4 + 0868 
OC AE OF 90089 PUSHAB + 0869 
04 AE 9F 0008 PUSHAB i NODE_ADDR : 
08 DD 00086 PUSHL : 
BD 00088 PUSHL ; 
7E O3F6 BF 3C OOO8A MOVZWL stati SP) : 
000000006 0 05 FB 0008F CALLS #5, NiaSINSERTELD ; 
6 4 pO 00098 MOVL #4. NMLSAB_MSGBLOCK + 0871 
0c A3 000000006 8F DO 00099 MOVL  #NMLS "RECADDED, NMLSAB_MSGBLOCK+12 : 0872 
04 AE 9F OOOAl 4S: PUSHAB KEY : 0878 
10 AE 9F OOOA4 PUSHAB RECDSC : 
08 AE DD 000A7 PUSHL SINK_NODE_ADDR : 
08 AC DD OOOAA PUSHL SNK ; 
00000000v 90 4 FB OAD CALLS #4, NAL DEF LOGGING ; 
64 1 8 0B4 MOV NMLSQ_ENTBFDSC ; 0882 
04 Ad CO AG 087 MOVAB mast ENTBUTER. NML$Q_ENTBFDSC+4 : 088 
CO AG 08 A 08 MOVB STOR STCE BUFFER : 0884 
63 1 C BISB2 NAL SABA GBLOC : 0889 
16 «AS 64 9 DOC MOVAB bea DENTE, NAL SAB _MSGBLOCK+20 : 0890 
08 AE OF Oc8 PUSHAB MSGSIZE > 0894 
53 oD 000CB PUSHL ; 
090000006 00 02 FB 000CD CALLS NAL SBLD _REPLY ; 
08 AE DD 00004 PUSHL mséSi7 > 0895 
000000006 0 F 00007 PUSHAB WAL SABE SNDBUFFER ; 
000200006 00 FB OO0DD CALLS #2, NMC ; 
04 000E4 RET > 0896 


; Routine Size: 229 bytes, Routine Base: S$CODE$S + O4EE 
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F INE NML DEFINE permanent parameter module 1b-se 1984 00:12:4 AX-11 Bliss-32 V4.0-74 Page 30 NMI 
vat dt NML_DEFLOGGING Def ne entity parameters 1 730071382 9953839) UNML.SRC NMLDEF INE .B32; ais vo 
: on? 97 1 ZSBTTL “NML_DEFLOGGING Define entity parameters’ 
3 308 98 ! ROUTINE NML_DEFLOGGING (SNK, SNKADR, RECDSC, KEY) : NOVALUE = 
; 910 1 !44 | 
; Bi3 ! : FUNCTIONAL DESCRIPTION: 
; 318 : 1: This routine performs common DEFINE functions for both singular 
3 aie ¢ : and nlural requests. 
; 3i§ 1 | FORMAL PARAMETERS: 
: 3 308 1 i SNK Logging sink t 
: : ng sin e. 
: 38 309 1 | SNKADR STRE node address, 
; 920 910 1! RECDSC Address of current record descriptor. 
: 2 1 ap : KEY Address of current record key. 
3; 9 7 318 1 ! IMPLICIT INPUTS: 
: 924 914 1! 
; 925 915 1! NONE 
3; § $ B38 1! 
3; 9 0917 1°! IMPLICIT OUTPUTS: 
; 928 0918 1! 
3s 92 0919 1! NONE 
3; 9 0920 1! 
; 931 8 1 1 ! ROUTINE VALUE: 
3 836 9 ; 1 ! COMPLETION CODES: 
3 987 09 1! 
; 9 0924 1! NONE 
: 935 0925 1! 
; 936 0926 1 ! SIDE EFFECTS: 
; 937 0927 1! 
; 938 0928 1! NONE 
; 939 8 9 1! 
3 940 930 1 !-- 
3: 941 0931 1 
; ang aa t4 BEGIN 
; 94 93 
3: 944 Rte MAP 
3; 945 935 snkadr : WORD, 
3 oee Be8 recdsc : REF DESCRIPTOR; 
; 94 93 
3: 948 0938 LOCAL 
3; 949 fid, ! File id code 
; 950 fldsize, 
3; «951 fldadr, 
3 336 status, 
3 ey updflg; 
; Bee tid = .nml$ab_entitydata Cnml$c_logging, eit$b_fileid); ! Get file id 
; $57 : Add event to record. 
: 959 status = nmlS$addevents (true, .recdsc, .snk, .snkadr, updflg); 
; 960 IF NOT .status THEN 
3 +d RETURN; 
3 968 IF NOT .updflg THEN 


6 
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DEFI 
-DEFLOGGING Define entity parameters 


eA 
3 
F 


F 

NAL _DEF 7 NML .SRCINMLDEF INE .832 (11) 
> 964 4 een 
; 965 955 nmi $ab_msgblock (msb$l_flags] = msb$m_msg_fld; 
3 298 9 $ nml$ab_msgblock [msb$b_code] = nma$c_sts_mpr; 
; 96 9 nmlS$ab_msgblock (msb$i"text] = nml$_Badevtupd; 
; + ¢5 8 RETURN 
; 4 9 ; 
; 970 960 : 
3 30) 961 : If event field was added successfully, then write the record back to file. 
; 378 368 nml$writerecord (.fid, .snk okey, .recdsc, 0); 
: are sc) nm $ab_msgblock Cmsb$6_coded = nma$c_sts_suc; 
: 976 966 1 END; ! End of NML_DEFLOGGING 


QOOC 00000 NML_DEFLOGGING: 
- WORD 


Save R2,R3 ; 0898 
53 000000006 0 9 99002 HOVA NMLSAB_MSGBLOCK+4, R3 : 
52 000000006 00 9A 990¢ MOVZ2BL NMLSAB_ENTITYDATA+44, FID + 0945 
E DD 0001 PUSHL SP + 0949 
7E 08 AC C 00015 MOVZWL SNKADR, -(SP) : 
04 AC DD 00019 PUSHL SNK : 
0C aC DD 0001C PUSHL RECDSC : 
01 DD OOOTF PUSHL #1 3 
00000000v 00 99 FB 00021 CALLS #5, NMLSADDEVENTS ; 
2A 0 £9 00028 BLBC STATUS, 2$ : 095 
1 6— £8 00028 BLBS §_~ UPDFLG. 1$ : 095 
FC OA 4 BO 00 MOVL #4, NMLSAB_MSGBLOCK : 0955 
63 5 3 00 MNEGB #5, NMLSAB_MSGBLOCK+4 3; 095 
08 A3 000000006 F ry 4 ; nove #NML$_BADEVTUPD, NMLSAB_MSGBLOCK+12 : boc, 
7E D4 OOO3E 18: CLRL = = (SP) : 096 
OC AC 0D 0004 PUSHL RECDSC : 
10 AC DD 0004 SHL KEY ; 
04 AC DD 00046 PUSHL SNK : 
52 DD 00049 PUSHL ELD : 
000000006 09 6 FR 0004 CALLS #5, NMLS$WRITERECORD : 
6 1 90 0005 MOVB #1, NMLSAB_MSGBLOCK+4 + 0964 
04 00055 2s: RET > 0966 


; Routine Size: 86 bytes, Routine Base: S$CODE$ + 0503 
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WA APO POPORIPURINININIRD 2 9 A OO OO 


ee ee ee ee ee ec ae ae ee ee ee a a ee a ed eel ae ee el ed ed ee ee 
WN =O ODONOUSWN 0 OONOUSWN Oo 
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6 
EVENTS “has vente te the culetile date 1$-Se0-1984 99:28:6) — YAMc SRPMS DEF INC o35¢4 


ZSBTTL Ii SADDEVENTS Add events to the volatile data base’ 


GLOBAL ROU 


'¢ 


INE NMLSADDEVENTS (FCT, RECDSC, SNK, SNKADR, UPDFLG) = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine adds the filters specified in the SET command 
to the volatile data base entry for the specified sink node 
qnd. sien S780. If an entry does not exist then a new one 


FORMAL PARAMETERS: 


FCT Function code. (TRUE=>set, FALSE=>clear). 

RECDSC Descriptor of temporery data base record 
Sentetning event filters to be added. 

SNK Logging sink type. 

SNKADR Sink node address. 

UPDFLG Address of update flag. (TRUE=>add, 


IMPLICIT INPUTS: 
NMLSGB_EVTSRCTYP Event source type code. 
NML$GQ_EVTSRCDSC Descriptor of event source id string. 
NML$GQ_EVTMSKDSC Descriptor of event filter mask. 
NML$GW_EVTCLASS Event class code. 

IMPLICIT OUTPUTS: 


ROUTINE VALUE: 


COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
MAP 


recdsc : REF DESCRIPTOR, 
snkadr : WORD; 


evtbuf : VECTOR Cnml$k_recbflen, BYTE]; 
evtdsc = UPLIT (nml$k_recbflen, evtbuf) : DESCRIPTOR; 


dr, 
ize, 


—a eh 
oe 
aa 
vo 


6 
L_ DEFINE permanent parameter module 16-Sep-1984 12:4 AX-11 Bliss-32 V4.0-74 P 3 
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way SPEF INE 


1035 prmdsc : DESCRIPTOR, 
, status; 
i Get the event fiela from the record. If one does not exist then create 
@ new one. 
tldadr = 0; 
status = nma$searchfld (.recdsc 
nmagc pc lo_eve, 
fldsize, 
fldadr); 


1F .status THEN 
BEGIN 


CHSMOVE (.fldsize, .fldadr, .evtdsc Cdsc$a_pointer]); 
prmdsc Cdsc$w_length] = .fldsize; 
proces dsc$a_pointer] = .evtdsc [dsc$a_pointer]; 


ELSE 
BEGIN 
prmdsc Cdsc$w_length] = 0; 
sraees dsc$a_pointer] = .evtdsc (Cdsc$a_pointer]; 


BEF RWWA AAW AAAI 


Add the filters to those found in the temporary data base record. 


status = nml$addfilters (.fct, 
evtdsc, 


SOSSSSSSSSSSSSSSSSSS SPER OSES 


EESEESESSLRGS GAA DALE PERE REE ERS 


.sn 
nmi $gb_evtsrctyp, 

nal fea Suterseec. 
-nmldgw_evtclass, 
-nml$gq_evtmskdsc pascSu. longer? 
-nml$gq_evtmskdsc dsc$a_pointerd, 
prmdsc); 


PUPA & 
MEUM SO ODNAUNE WN $$ O ODNAU EWN OOONAUE WIN“ OOONOULS 


to 


IF NOT .status THEN 
BEGIN 


nml$ab_msgblock (Cmsb$l_flags] = msb$m_msg_fld; 
nml$ab_msgblock Cmsb$b_code] = nma$c_sts_mpr; 
nml$ab_msgblock Cmsb$l"text] = nml$_Badevtupd; 
hee Status; 


SANS 
OUuLWN O°” 


i If the filters were successfully added then replace the temporary 


' 
' 
data base entry with the modified one. 
5 


S3aN 
255 


OOooocecocoo 
tos 


oo 
—_ 
OOONOUE Ww OOM 


tatus = nml$savevents (nml$k_max_rec_data, 
-prmdsc bascéw. length) 
-prmdsc dsc$a-pointerd, 
-recdsc); 


SE oe 


IF NOT .status THEN 
RETURN .status; 


i If there are still filters remaining then indicate that they should be 
replaced in the data base. 


if .prmdsc Cdsc$w_length] NEQ 0 THEN 


st 


ce a ee em ee a ee em ee ee ee ee ee ed ed ed nd ed od 


SOoooooooo 


oN 
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DEVENTS "Add events "to the volstile data le-sep-1984 45:50:67 — ENML/SREIWAL DEFINE. 932¢ Page 43} 
; 198 } Y nee" OOO = TRUE 
1994 HE -updflg = FALSE; 
1038 1352 RETURN nml$_sts_suc 
; 1098 1089 END; ! End of NMLSADDEVENTS 


| 
.PSECT $PLIT$,NOWRT,NOEXE,2 : 
00000400 00010 P.AAD: .LONG 1024 ; ; 
00000000' 00014 “ADDRESS EVTBUF : : 
-PSECT SOWNS,NOEXE,2 b 
00048 EVTBUF: .BLKB 1024 : 
EVTDSC= P.AAD 3 
-PSECT S$CODE$,NOWRT,2 $ 
01FC 00000 eENTRY NMLSADDEVENTS, Save R2,R3,R4,R5,R6,R7,R8 ; 0968 : 
58 000000006 00 9€ 00002 MOV NML$AB_MSGBLOCK, R8 : ; 
SE 0C C2 00009 SUBL2 #12, : ; 
7E D4 0000C CLRL  FLDADR + 1030 ; 
SE DD OO000E PUSHL : 1031 ; 
08 AE OF 90010 PUSHAB FLDSIZE : ; 
7E C9 BF 9A 0001 MOVZBL #201, -(SP) : : 
08 AC DD 00017 PUSHL R : : 
000000006 00 04 FB BooIA CALLS #4, NMASSEARCHFLD : 3 
7 50 pdO 00021 MOVL RO, STATUS 3 é 
56 00000000' 00 00 00024 MOVL  EVTDSC+4, R6 + 1037 ; 
0D 57 €9 00028 BLBC STATUS, {$ + 1035 : 
66 00 BE 04 AE 28 0002E MOVC3 FLDSIZE, @FLDADR, (R6) : 1037 ; 
08 AE 04 AE BO 00034 MOVW FLDSIZE. PRMDSC + 1038 : 
03 11 00039 BRB : 1039 ; 
08 AE B4 00038 1$: CLRW - PRMDSC > 1043 : 
0c AE 56 pO 000 2s: MOVL R6, PRMDSC+4 3 1044 3 
08 A 9F 0004 PUSHAB PRMDSC : 1049 3 
00000006 00 oD 0004 PUSHL NML$GQ_EVIMSKDSC+4 > 1056 : 
7E 90000 06 00 C 004 MOVZ2WL NMLSGQ"EVTMSKDSC, -(SP) : 1055 ; 
7E G € 0005 MOVZWL NMLSGW-EVTCLASS, (SP > 1054 : 
00 900 06 00 9F 005 PUSHAB NML$GQ- + 1049 ; 
7E 00 one 0 9A OO00SF MOVZBL NMLSGB_EVTSRCTYP, -(SP) : 1052 3 
C AC DD 00066 PUSHL SNK + 1051 F 
00000000" 00 9F 00069 PUSHAB EVTDSC + 1049 ; 
04 § p O6F PUSHL FCT : : 
000000006 90 0 2 CALLS #9, NMLSADDFILTERS : ; 
: DO 0007 MOVL R ATUS : : 
11 E8 0007C BLBS STATUS, 3$ : 1059 : 
rs) 4 p O7F MOVL #4, NMLSAB_MSGBLOC > 1061 : 
04 AB 5 E 082 MNEGB #5. NMLSAB-MSGBLOCK+4 : 106 ; 
OC  A8 000000006 8F DO 00086 MOVL §§ #NMLS_BADEVTUPD, NMLS$AB_MSGBLOCK+12 > 106 : 
1¢ 11 OO08E BRB 4$ > 1064 : 


| ? 
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vad tit NMLSADDEVENTS Add events to the volatile data 1 Sep-1984 99: 48:6 NAL. SREINME DEFINE 032+ . 133 


0 AC DD 3$: PUSHL RECDSC : 1073 : 
AE 0D PUSHL PRMDSC+4 + 107 :. 
7E AE 3¢ MOVZWL PRADSC, -(SP) + 107 : 
7 O3F F %3¢ R MOVZWL -(SP) + 1070 ; 
00000000v 4 F OF CALLS #4, "WAL SSAVEVENTS : ; 
9 D A MOVL RO, ST ATyS : : 
4 E A BLBS § STATUS, + 1074 : 
0 7 p aC 4$: MOVL STarus: RO + 1075 : 
08 A e BO 5$: TSTW  PRMDSC + 1080 : 
B BEQL = 6$ : 
14 BC p 08 MOVL #1, @UPDFLG : 1081 
B BRB : 
14 Bt D4 000BB 8 $$ : CLRL QuPDELG : 1083 
50 1 00 O008E $: MOVL #1, R + 1085 
04 ita RET + 1087 


; Routine Size: 194 bytes, Routine Base: $CODE$ + 0629 
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PPK BFW WWIII RIPUNIPINININDININ 2 2 OO QOD OOCOCOCOOOCO 


QW EWN —“OOONOUEWN—OOOn 
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INE permanent parameter module 1§ 
EVENTS Save events 14 


ZSBTTL 'NMLSSAVEVENTS Save events’ 
GLOBAL ROUTINE NMLSSAVEVENTS (BUFSIZE, LEN, ADR, RTNDSC) = 


7 
ep-198e 12:50:07  ENML.SRCINALDEF INE 8321 


'o4¢ 
FUNCTIONAL DESCRIPTION: 
This routine stores events in a structure resembling a permanent 
data base record. It is used for both volatile and permanent 
event filter modifications. 
FORMAL PARAMETERS: 
BUFSIZE Maximum size of buffer. 
LEN Length of events parameter. 
ADR Address of events pereneae string. 
RTNDSC Descriptor of resulting data. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


BEGIN 


P 
rtndsc : REF DESCRIPTOR; 


LOCAL 
status; 
status = nmaSinsertfild (.bufsize, 
nma$c _pclo_eve, 
len, 
adr, 
-ftndsc); 


IF NOT .status THEN 
IN 


nml$ab_msgblock (msb$i_flags] = msb$m_msg_fid; 
nal $ab_msgblock msbsb_code] = nma$c_sts_mpr; 
nm $Sab_msgblock msb$l-text) = nml$_Tntevtovt; 


RIPPIN AIA POPONIPOPINIPONIPNINIPIIY) 2 tt tt tt 
= . e 


RETURN .status 


VOL=DO0 © = NMLSSAVEVENTS "Save events emote ieee Sep-1986 49:50:67  ENML-SRESNALDEF INE :B30+4 Page 43) 
£1188 1108 ¥ eno; ! End of NMLSSAVEVENTS 


0004 900 ENTRY NiML SSAVEVENTS Save R2 ; 1089 
52 000000006 00 3E 0 MOVAB NMLS$AB_MSGBLOCK, R2 
E OC AC 70 900 MOVO ADR, Bees 
08 AC DD 0000 PUSHL LEN 
7E C9 8F 9A 0001 MOVZBL #201, -(SP) 
04 AC 0D 0001 USHL ours ZE 
000000006 00 05 FB 0001 CALLS NMASINSERTFLD 
OF 50 £8 0001 BLBS STATUS, 1$ 1137 
62 04 DO b0o5 MOVL #4, NAL $AB_ Ae pesy oe 1139 
04 A2 05 8€ 000 MNEGB #5, NMLSAB MSGBLOCK+4 1140 
OC A2 000000006 8F DO 0002 MOVE” NALS. TNTETOVFS NPL SAB_MSGBLOCK+12 1141 
04 00030 1$ RET 1146 


; Routine Size: 49 bytes, Routine Base: SCODES + 06EB 
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T aa 9953836) ENML.SRC NMLDEF INE .B32; . (14) 
; 1160 1147 1 ZSBITL "NMLSGETRECOWNER Get record owner string’ : 
3 2 1333 : GLOBAL ROUTINE NMLSGETRECOWNER (RECDSC, ENTITY, BUFDSC, RESLEN) = ; 
: 1188 1150 1 !4¢ ‘ 
: 118e 133 : FUNCTIONAL DESCRIPTION: : 
> 1166 11 : 7} This routine returns the pe | id — based on information supplied : 
: 11ee 128 : by the current permanent data base record. ‘ 
: 1169 1128 1 ! FORMAL PARAMETERS: : 
: 1170 157 1! ‘ 
3: 1171 1158 1! RECDSC Address of the record descriptor. ° 
3 1176 1159 1! ENTITY Entity type code. ° 
3 117 1160 1! BUF DSC Address of owner string buffer descriptor. : 
3 Vite 1161 ! RESLEN Address of the resulting string length. : 
: 1176 1183 1 ! IMPLICIT INPUTS: ‘ 
3: 1177 1164 1! : 
3; 1178 1165 1! NONE ‘ 
3 1179 1166 1! ‘ 
; 1180 1167 1°! IMPLICIT OUTPUTS: ‘ 
3; 1181 1168 1! ‘ 
: 1182 1169 1! The buffer descriptor pointed to by BUFDSC describes the record : 
; 1183 1170 1! owner string. ‘ 
3; 1184 1171 1! ‘ 
>; 1185 1196 1 ! ROUTINE VALUE: : 
: 1186 1173 1 ! COMPLETION CODES: : 
: 1187 1174 1! ‘ 
; 1188 bie If no owner field is present for the record then an error : 
: 1189 1176 1! indicating invalid file contents (NML$_STS_FCO) is returned : 
; Bo We : otherwise success (NML$_STS_SUC) is refurned. : 
; 1138 1179 1°! SIDE EFFECTS: ‘ 
: 119 1180 1! ‘ 
3 1194 1181 1! NONE . 
3: 1195 1136 1! ‘ 
: 1196 1183 1 !-- ‘ 
3: 1197 1184 1 : 
3; 1198 1185 BEGIN : 
3: 1199 1136 ‘ 
: 1200 118 MAP . 
3 \¢8) 1188 recdsc : REF DESCRIPTOR, ! Descriptor of record data : 
3 : 4 113 bufdsc : REF DESCRIPTOR; ! Descriptor of entity buffer : 
; 1504 1191 LOCAL : 
: 1205 1136 code : WORD, ! Entity id parameter code ; 
: 1206 119 fldsize, ! Temporary record owner string length : 
3: 1207 1194 fldadr, ; pouperery record owner string pointer : 
3; 1208 1195 ptr, ' Output string pointer : 
: 1209 1338 msgsize; ! Message size ; 
3: 1210 119 ‘ 
; : 13 HB ptr = ebufdsc Cdsc$a_pointer); . 
; ! 1§ ' : Get entity information. : 
; iSi2 ‘ 4 code = .nml$ab_entitydata C.entity, eitSw_key]; ! Permanent database key : 
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YF 
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ECOUNE 1. Fecer , 3 14 ety 7 90:38:63 ENML. SRC Wa Der INE 63544 (14) 


wm SEF INE 
v04- ER Get record owner string 


z 
= 
er 
men 
—w 
ze 


Dd 
$G 


: 1217 1204 SELECTONEU .entity OF 

3; 7 \8 1205 ET 

; 121 1 $ nm $c_node, 

: 1220 120 dont Sey. they te 

3; 1221 1 oS nml$c_executor]: 

: 1 § 1209 BEGIN 

3; 1 1210 fldadr = 0; ! Search all fields 
3 1224 1211 IF nma$searchfld (.recdsc 

> 1225 1 iF nma$c_pcno_add, 

3; 1 $6 121 ldsize, 

3; 1227 1214 fldadr) THEN 

: 1228 1215 4 BEGIN 

3: 1229 1 18 4 : 

3: 12350 1217 4 ! If talking to a Phase III node, clear area numbers that match 
: 1231 1218 4 ! the executors, so they are displayed intelligebly on the Phase 
: 1$38 1219 4 ! III] system. Node numbers outside the executor's area will 
; \S37 1331 ? ! mot look sensible, but they will be unique. 

3; 1235 1 $§ 4 IF CHSRCHAR (nml$gb_ncp_version) LEQ 3 THEN 

; 1236 1223 5 BEGIN 

3: 1237 1224 5 BIND node_addr = fldadr: REF BBLOCK; 

3 1538 iss? 5 

3; 1239 1 $8 5 IF .node_addr Cnma$v_area] EQL 

3; 1240 1227 5 -nml$gw_perm_exec_addr Cnma$v_area] THEN 
3 igs] 1228 5 node_addr (nma$v_areal = 0; 

3 3 PA 1568 & END; 

3: 124 I 0 4 as = CHSMOVE (2, .fldadr, .ptr); 

3 1244 1231 4 ND 

; 156? 1S36 3 LSE 

3: 1246 \$3 4 BEGIN 

; ise? 1234 4 (.ptr)<0,16> = 0; ! Zero node address 
; 1se8 \$3? 4 tr = .ptr + 2; ! Advance pointer 

3; 1250 1539 : code = nma$c_pcno_nna; ! Look for name 

; 1$2] 1238 END; 

3 1 26 1239 

3 \$2 1240 Cnml$c_loopnode): 

3 1254 1241 BEGIN 

3: 1255 1 ¢g code = nma$c_pcno_nna; ' Look for name 

3 1536 124 (.ptr)<0,16> = 0; ' Loop node address is zero 
3; 125 1244 a = .ptr + 2; ! Advance pointer 

3; 1258 1245 ND; 

: 1259 124 TES; 

: 1260 124 

3: 1261 1248 fidadr = 0; ! Search all fields 
3 1 o¢ 1249 IF nma$searchfld (.recdsc, .code, fidsize, fidadr) THEN 

: 126 1250 BEG! 

3: 1264 1 2) SELECTONEU .entity OF 

: 1265 1 ¢ ET 

3 1 $6 125 nal $c_node 

3; 126 1254 nml$c“nodebyname, 

; 1268 1255 nal $c_loopnode, 

3; 1 44 1 2$ nal$c_line, 

:; 1270 1 ; nal$c_circuit, 

: 1271 1 3 nal$c_o ject. 

3 1 % 125 nml$c_x25_serv, 

3 127 1260 nml$c_trace, 


S53 


oe: Bliss-32 V4.0-74 Page 40 
NML.SRCINMLDEF INE .B32; (14) 


23 


7 
EFINE permanent parameter module 1b-se -1984 2:12:41 
ETRECOUNER Get Pecord owner string 1 730071382 99:38:49 
nml$c_x29_serv]: 
CHSWCHAR_A (.fldsize, ptr); ! Add count 


Cnml$c_executor]: 
CHSWCHAR_A (.fldsize OR nma$m_ent_exe, ptr); 


Cnml$c_x25_access]: 


N 
SMOVE_ASCIC ('X25-ACCESS', ptr); 
tr = CHSMOVE (2, UPLIT (nma$c_pcxa_net), .ptr); 
HSWCHAR_A (nma$m_pty_asc, ptr); 
CHSWCHAR_A (.fldstze, ptr; ! Add count 


ea 
z 
33 


Cnml$c_prot_net, 
nat sc prot_dte, 
nml$c_prot_grpJ: 

BECT — 


SMOVE_ASCIC ("X25=PROTOCOL', ptr); 
tr = CHSMOVE (2, code, .ptr); 
HSWCHAR_A (nma$m_pty_asc, ptr); 

CHSWCHARTA (.fldsTze, ptrs; ! Add count 


POPIPIPIPPIPNIPINIPPIPIPIPINYINPININPINIPY 
SNAP AAA AAAO 
VISA —OOONAUE Wt 


SESS FaSs 


Saec 


305 3 nml$c_x25_serv_dest]: SMGVE_ASCIC ('X25-SERVER', ptr); 
306 9 nml$c_tracepntd: ELASCIC (*X25-TRACE'. ptr); 
307 c_x29_serv_dest]: SMOVE-ASCIC ('X29-SERVER’, ptr); 
308 nml$c_ni_tonfigl: SMOVE_ASCIC (*CONFIGURATOR', ptr); 


TES; 
tr = CHSMOVE (2, code, .ptr); 
HSWCHAR_A (nma$m_pty_asc, ptr); 
CHSWCHARTA (.fldstze, ptr); ' Add count 


TES; 


23S 
wn—o 


a e 
Aue 


If it will fit, move the entity string into the buffer for the 
record owner. The contents of this buffer are later used as 
the entity ID in the NICE response message. 


F .bufdsc Cdsc$w_length] GEQU 
-fldsize + (.ptr - .bufdse Cdsc$a_pointer])) THEN 
ptr = CHSMOVE (.fldsize, .fldadr, .ptr); 


wa 
SES SENcS sete 


END 
ELSE 
seLeCT ONY eentity OF 


nml$c_node 
nml $c “nodebyname): 


me ee le ee a a a ed ad nd od = oe = 8 dt 
TT eee SS Ss 


WWAAAAA AAI AAA AW ANN 
SOOONOUS WN OOO 


WRPORSPOPONOPUNUNNN 2 


— 4) 4 4 3 1 OO 
NOUS WN OOO 


H 7 
NMLSDEF INE NML_DEFINE permanent parameter module 16-Sep-1984 00:12:4 AX-11 Bliss-32 V4.0-74 Pp 41) 
iva dit NMLSGETRECOU : aes a Tg ee eae Ce 20 1a) | 


F 
T NER Get record owner string (14) | 
1331 131 CHSWCHAR_A (0, ptr); | 
133 1315 . = | 
1 1320 Cnml$c_executor]: 
' : ! 1 chSwchar_A (nma$m_ent_exe, ptr); 
| 
i § COTHERWISE : 
1338 1325 nmlS$ab_msgblock Cmsb$l {legs} = | 
1339 1 $ msb$m_det_fid OR msb$m_msg_fld; ! Set message flags 
1340 1 nml$ab_msgblock asbsb_codes ="nmaSc_sts_fco; 
+t ralgatanagutcct Easbetcasith'? nalSencracben; oe 
m ext) = nml$_norecown; 
1 g 1330 nt sola. reply (nml$ab_fsgblock, msgize); ' Build message 
; 2 : 1 a a nml$ab_sndbuffer, .msgsize); ! Signal it 
ee Sata danas 
: re : 2 zrveton sine - .bufdsc Cdsc$a_pointer); 
nml$_sts_suc 
1350 1 38 1 END; Ch, ! End of NMLSGETRECOWNER 
-PSECT SPLITS,NOWRT,NOEXE,2 
53 53 45 43 43 41 2D 35 32 58 OA o00i8 P.AAE: mr} (nati ataaaaal 3 
00000456 $0034 P.AAF: .LONG 1110 ; 
4C GF 463 GF 5& 4F 2g 29 2D 5 2 58 C 444 P.AAG: .ASCII <12>\X25=PROTOCOL\ $ 
52 45 28 52 45 53 20 35 32 58 00035 P.AAH: .ASCII <10>\X25-SERVER\ 3 
45 43 41 2 23 5 § 58 09 00040 P.AAI: .ASCII <9>\X25-TRACE\ $ 
52 45 56 26 4 3 2 39 58 OA QO0O4A P.AAJ: .ASCII <10>\X29-SERVER\ 3 
52 4F 54 41 52 55 47 49 46 GE 4F 43 OC 00055 P.AAK: .ASCII <12>\CONFIGURATOR\ 5 
-PSECT SCODES,NOWRT,2 
OFFC 00000 eENTRY ee. BOE IRE SOUR, Save R2,R3,R4,R5,R6,R7,RB,~; 1148 
5B 000000006 00 9€ 0000 MOVAB NMASSEARCHFLD, R11 ; 
5A 000000006 00 9€ 000 MOVAB NMLSAB_MSGBLOCK, R10 3 
4 00000000° 30 3 80919 aan ate : 
3 08 AC 56 Q 1A MOV ENTITY, R6 : 1202 
04 =A 00 ; 45 MOVL 4(R7), PTR 3 119 
50 56 2c MULL3) #44, R6, RO : 1202 
0000000060040 9F $8 6 PUSHAB NMLS$AB_ENTITYDATA+3(ROJ : 
38 9—E B60 MOV a(SP)+, CODE 3 
0 32 pf CMPL R6, #3 3 1206 
2 fF BLSSU. ‘1$ PF 
04 g 01 CMPL R6, #4 é 
i BLEQU 2$ 3 
07 § 9 A 1$ CMPL R6, #7 3 
4 2 BNEQ 6$ 3 
E D4 8 F 2$ CLRL FLDADR 3 1319 
E 0D PUSHL SP 3 1211 


23 


Q 000000006 00 
0 00 =«BE 


63 


63 


rmanent parameter module 
ER Get record owner string 


VOL=000, = NALSGETAECOEN 


OPUS NO DOWOOMNOWOCODWDOOO 
CFF FON OOF “OF WO "> — ODIO 


MOA OPM SOP OWA OO OAUIA FA OLOOMMMNW™H NOOO MRWwrm SOrUNOORS 


ODOOQOOCOCOOCCOOOOOOCOOGOOOOOOOOOOOUO 


NWSI BMNBWOUO MOMNOVNVIVIO WI 


ao 


SSSo- 


—o —0o 0 30 OW" | oO | Ooo 4 or - nn 


SOOOOoOOooooooooooooooooooooo 


ouw 


Onn 


Oo 
a> 


SOSoOoOoooO 
ao ao 
oO = 


OoOooooooooocoo 


0 


MMMMMmMoo 
—MOoolwun"e 


i 


oO 
oo 
* 


1986 92:56:07 — ENML-SREINALDEF INE -B32s1 


ROVruL #803, —= 


=(SP) 
PUSHL  RECDS§C 

CALLS #4, NMASSEARCHFLD 

CMPB yal $GB_NCP_VERSION, #3 

BGTRU 

EXTZV #2, #6 NML $GW_PERM_EXEC_ADDR+1, RO 
CMPZV #16. #6, @NODE-ADOR: R 

BICW2 #64512, @NODE_ADDR 

MOVW FLDADR, (PTRY 

BRB 

CLRW = (PTR) 

ADDL2 He PTR 

mMOVW #560, CODE 

BRB 

CMPL = R6, #5 

BNEO 

MOVW #500, CODE 

CLRW 30s (PTRS+ 

CLRL = FLDADR 

PUSHL § 


Pp 
PUSHAB FLDSIZE 
MOVZWL CODE, -(SP) 
PUSHL RECDS 


US EC 
CALLS #4, NMASSEARCHFLD 
BLBS RO, 8$ 

BRW 26$ 

TSTL Rs 

BEQL 13$ 

CMPL = RO, #3 

BLSSU 9S 

CMPL =e RG, #5 

BLEQU 108 

CMPL Rs #8 

BLSsu 128 

CMPL = RG, #9 

BGTRU 12$ 

BRW 23$ 

CMPL RO, #17 

BEQL =s«118 

CMPL RS #19 

BEQL «6s «23 

CMPL Rg #21 

BEQL «6s 23 

CMPL =_-RO, #7 

BNEQ 14% 

BISB3 #128, FLDSIZE, (PTR) 
BRB 24 

CMPL Rg #13 

BNEG 158 

MOVC3 #11, P.AAE, (PTR) 
MOV) P.AAF, (PTR) 

BRB 22$ 

CMPL RG, #14 

BLSsu. 168 


Se Se Se Se Se Se Ge Be Se Ge Fe Se Ge Be Se Se Be Ge Be 


Pe Se Se Se Se Se Se Se Ge Ge Ge Fe Ge Ge Ge Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Se Se 


—- 
uw oo 


SPer LOW 
OOwnm OF 


1253 


7 
NMLSDEF INE NML DEF ermanent parameter module 1-5 ep-1 Ax-11 iss-32 V4.0-7 4 
06-000 NMLSGE / RECOLNER Get Pecord owner string 1 300-1 3s 99: 4g: $y NML. SRE NMLDEF INE. B32: Page 443 
10 1 000F3 CMPL RE, -#16 ; ; 
0? A 00086 BGTR ist : ; 
63 10 a9 8 F MOVCS #13, P.AAG, (PTR) + 1279 F 
4 FD BRB 21$ + 1280 F 
12 p| FF 16$: CMPL Rg #18 + 1285 : 
F 1 Bear «=s«17$ : ; 
14 6 04 1 CMPL RS #20 : ; 
A 1 107 BEQL 3=és«a17$ : : 
16 ‘ D1 001 CMPL RS #22 : : 
43 1F 0010¢ BLSSu _25$ : ’ 
17 6 1 001 CMPL RS #23 : ; 
— 10011 BGTRU 25$ : : 
12 3 D1.00113 17$:  CMPL Ré #18 + 1292 ; 
0 if 118 BNEQ 18$ : : 
63 1D Ad 8 28 0011 MOVC3 #11, P.AAH, (PTR) : ; 
11 0011D BRB 21$° : ; 
14 6 D1 OO11F 18$:  CMPL Ré #20 + 1293 ; 
07 if 0122 BNEQ 19$ : ; 
63 28 «Ad A é 00124 MOVC3 #10, P.AAI, (PTR) : ; 
16 11 001 9 BRB 21$ : ; 
16 56 D1 00128 19$:  CMPL R6, #22 + 1294 ; 
07 if 91 BNEG 208 : : 
17 in D1 00137 208 CMPL = R6, #23 + 1295 ; 
05 if 0013A BNEQ 218 ; ; 
> 3D AD gp 28 0013¢ MOVC3 #13, P.AAK, (PTR) : ; 
63 8 BO 00141 18: VW CODE, (PTRS : 1297 ; 
53 02 CO 00144 22$: ADDL2 #2 PIR : 3 
83 40 8F 90 00147 Ove #64 : 1298 ; 
6 04 AE 90 00148 23$:  MOVB rUDSIze. RYPTR) : 1299 : 
5 06 OO14F 24$: INCL. PTR : : 
50 +} 04 a? C¢ 00151 5$: UBL3 4(R7), PTR, RO + 1309 : 
50 04 AE CO 00156 ADDL2 FLDSIZE, R : : 
50 67 10 00 FD 00154 CMP7V #0, #16. (R7), RO : : 
57 1F 0015F BLSSU 308 : : 
63 00 BE 04 AE <8 o161 MOVC FLDSIZE, @FLDADR, (PTR) + 1310 : 
4F 11 00167 BRB 30$ : 1349 3 
03 56 01 0169 26$: CPL Rg #3 : 1316 ; 
09 1F 0016C BLSSU 27$ : : 
04 6 01 0166 CMPL = RG, : ; 
04 1A 001 BGTRU : : 
3 94 0017 CLRB = (PTR) + 1318 : 
9 11 V7 BRB $ : : 
07 6 D1 00177 27$: CMPL 6, #7 : 1320 : 
if 17A BNEQ 2 : : 
63 80 BF 90 0017 MOVB 4-128, (PTR) + 1321 : 
3 D6 180 28% INCL ; : 
4 1 BRB 308 + 1314 : 
6A 6 p0 184 29$:  MOVL AB_MSGBLOCK : 1 $ : 
04 AA E : 187 MNEGB An NLSAB MSGBLOCK+4 : 1 : 
AA 84 001 CLAW MAL SAB GBCOCK+ : 1328 ; 
0C AA 000000006 aF dO 901 mOVL ANA L$ ORECOWN, NMLSAB_MSGBLOCK+12 F } 9 : 
56 OD 00199 PUSHL ; : 
000000006 00 02 FB 001 CALLS #2 NAL SBLD _REPLY ; ; 
08 AE DD OO1A PUSHL MSGSIZ + 1331 ; 


NAL 


woxSRGM®—SRLREGANGRREITEL Pare scot*thtng, CRESTOR BRA} RCA BSats tin rane ff 
ac 000000006 9 BHF 5B88E" i i a , a 4 1 ne 
04 001 
1¢ 


#3, LIB 
10 06 =A SUBL £ch75 PTR, @RESLEN 
0 BE MOVL wi, Rb 


; Routine Size: 450 bytes, Routine Base: SCODE$ + 07 


7 
NMLSDEF INE NML_DEFINE permanent parameter module 1b-Se -1984 00:12:41 AX-11 Bliss-32 V4.0-74 P 45 
va ta NMLSGETRECOWNER Get Fecore owner string 12-808=1 38 90°38:6) ENML «SRE NMLDEF INE .832; ~ 
3 1 1338 1 END ! f 
: 1388 1335 } End of module 
3; 1354 1340 0 ELUDOM 


~-EXTRN LIBSSIGNAL 


g PSECT SUMMARY 

: Name Bytes Attributes 

: SOWNS 1096 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$CODES 2270 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 98 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
oan ane Synbels eocoeece Pages Processing 
File Total Loaded Percent Mapped Time 


Bi hy ot PT m8 kar oie aoe Bee 


t 


; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NMLDEF INE/OBJ=OBJ$:NMLDEF INE MSRC$:NMLDEF INE/UPDATE=(ENHS$:NMLDEF INE) 
3 Size: 2270 cgge + 1194 data bytes 

3; Run Time: 0:37.3 

3; Elapsed Time: 4318-9 

3 Lines/CPU Min: $33 

3 Lexemes/CPU-Min: 15350 

; Memo 


ty Used: 201 pages 
; Compilation Complete 


EQUIPMENT CORPORATION | 


dee sede ya. ENTIAL AND PROPRIETARY 
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